From 559517497b9e9b64099df6bade29fada720a7bcb Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Mon, 16 Jun 2008 17:59:55 +0000
Subject: [PATCH] minor

svn: r10295
---
 collects/drscheme/private/module-language.ss | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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