diff --git a/pkgs/htdp-pkgs/htdp-lib/lang/run-teaching-program.rkt b/pkgs/htdp-pkgs/htdp-lib/lang/run-teaching-program.rkt
index 2f5f330676..c18b34c890 100644
--- a/pkgs/htdp-pkgs/htdp-lib/lang/run-teaching-program.rkt
+++ b/pkgs/htdp-pkgs/htdp-lib/lang/run-teaching-program.rkt
@@ -52,8 +52,9 @@
        (with-handlers ([exn:fail?
                         (λ (x)
                           (set! saved-exn x)
-                          (expand
-                           (create-empty-module language-module teachpacks module-name)))])
+                          (define-values (mod name)
+                            (create-empty-module language-module teachpacks module-name))
+                          (expand mod))])
          (define body-exps (suck-all-exps port reader))           
          (define teachpack-requires (teachpacks->requires teachpacks))        
          (rewrite-module