diff --git a/collects/tests/mzscheme/module-reader.ss b/collects/tests/mzscheme/module-reader.ss
index a2d7e5660f..6a109b41a7 100644
--- a/collects/tests/mzscheme/module-reader.ss
+++ b/collects/tests/mzscheme/module-reader.ss
@@ -20,7 +20,7 @@
 ;; plain version
 (module r0 syntax/module-reader scheme/base)
 (test-both '(r0) "#reader '~s (define FoO #:bAr)"
-           '(module page scheme/base (define FoO #:bAr)))
+           '(module page scheme/base (#%module-begin (define FoO #:bAr))))
 
 ;; using a simple wrapper to get a case-insensitive reader
 (module r1 syntax/module-reader scheme/base
@@ -35,7 +35,7 @@
     (parameterize ([read-case-sensitive #f]) (apply reader args))))
 ;;
 (test-both '(r1 r2 r3) "#reader '~s (define FoO #:bAr)"
-           '(module page scheme/base (define foo #:bar)))
+           '(module page scheme/base (#%module-begin (define foo #:bar))))
 
 ;; add something to the result
 (module r4 syntax/module-reader zzz
@@ -45,7 +45,7 @@
   #:wrapper1 (lambda (t stx?) (cons (if stx? #'foo 'foo) (t))))
 ;;
 (test-both '(r4 r5) "#reader '~s (define foo #:bar)"
-           '(module page zzz foo (define foo #:bar)))
+           '(module page zzz (#%module-begin foo (define foo #:bar))))
 
 ;; make an empty module, after reading the contents
 (module r6 syntax/module-reader zzz
@@ -56,14 +56,14 @@
 ;; forget about the input -- just return a fixed empty input module
 (module r8 syntax/module-reader whatever
   #:wrapper2 (lambda (in rd)
-               (if (syntax? (rd in)) #'(module page zzz) '(module page zzz))))
+               (if (syntax? (rd in)) #'(module page zzz (#%module-begin)) '(module page zzz (#%module-begin)))))
 ;; the same, the easy way
 (module r9 syntax/module-reader
   #:language (lambda () 'zzz)
   #:wrapper1 (lambda (t) '()))
 ;;
 (test-both '(r6 r7 r8 r9) "#reader '~s (define foo #:bar)"
-           '(module page zzz))
+           '(module page zzz (#%module-begin)))
 
 ;; a module that uses the scribble syntax with a specified language
 (module r10 syntax/module-reader -ignored-
@@ -89,9 +89,9 @@
   (require scribble/reader))
 ;;
 (test-both '(r10 r11) "#reader '~s scheme/base (define foo 1)"
-           '(module page scheme/base (define foo 1)))
+           '(module page scheme/base (#%module-begin (define foo 1))))
 (test-both '(r10 r11) "#reader '~s scheme/base @define[foo]{one}"
-           '(module page scheme/base (define foo "one")))
+           '(module page scheme/base (#%module-begin (define foo "one"))))
 
 ;; ----------------------------------------