diff --git a/collects/drscheme/private/module-language.ss b/collects/drscheme/private/module-language.ss
index 8f058878da..e61eb3ce85 100644
--- a/collects/drscheme/private/module-language.ss
+++ b/collects/drscheme/private/module-language.ss
@@ -391,8 +391,8 @@
     [(module . rest)
      (syntax-case stx ()
        [(form name . _)
-        (let ([v-name (syntax name)])
-          (when filename (check-filename-matches filename #'name stx))
+        (let ([v-name #'name])
+          (when filename (check-filename-matches filename v-name stx))
           (thread-cell-set! hopeless-repl #f)
           (values
            v-name