From e76b516e1d953ea3e6dbdae9214e4fe5b1a3cdcf Mon Sep 17 00:00:00 2001
From: Stevie Strickland <sstrickl@racket-lang.org>
Date: Sat, 5 Dec 2009 03:27:19 +0000
Subject: [PATCH] Fixes a bug if #%module-begin was already there.

svn: r17195
---
 collects/syntax/module-reader.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/syntax/module-reader.ss b/collects/syntax/module-reader.ss
index 630adff4dc..eeb0c6483e 100644
--- a/collects/syntax/module-reader.ss
+++ b/collects/syntax/module-reader.ss
@@ -160,7 +160,7 @@
                     [(not (pair? exp)) wrapped-exps]
                     [(eq? '#%module-begin
                           (if stx? (syntax-e (car exp)) (car exp)))
-                     (car exp)]
+                     (car exps)]
                     [else wrapped-exps]))])))
     (let* ([lang (if stx? (datum->syntax #f lang modpath modpath) lang)]
            [body (lambda ()