0. #lang racket
1.  
2. (dynamic-require
3.  '(submod
4.   (string "#lang racket (module stuff racket (define a 1) (provide a))")
5.   'stuff)
6.  0)

=>

standard-module-name-resolver: contract violation

expected: module-path?

given: '(submod (string "#lang racket (module stuff racket

(define a 1) (provide a))") 'stuff)