diff --git a/collects/lang/htdp-reader.ss b/collects/lang/htdp-reader.ss
index 86f1e9f6d8..877a30178c 100644
--- a/collects/lang/htdp-reader.ss
+++ b/collects/lang/htdp-reader.ss
@@ -39,10 +39,11 @@
                (datum->syntax-object
                 #f
                 `(module ,modname ,spec
-                   ,@(map (λ (x) `(require ,x))
-                          (lookup 'teachpacks table))
-                   ,@(parameterize ([read-case-sensitive (lookup 'read-case-sensitive table)]
-                                    [read-decimal-as-inexact #f]
-                                    [read-accept-dot #f])
-                       (get-all-exps source-name port))))))])
+                   (#%module-begin
+                    ,@(map (λ (x) `(require ,x))
+                           (lookup 'teachpacks table))
+                    ,@(parameterize ([read-case-sensitive (lookup 'read-case-sensitive table)]
+                                     [read-decimal-as-inexact #f]
+                                     [read-accept-dot #f])
+                        (get-all-exps source-name port)))))))])
       read-syntax)))