From bd2f7b91ec410861556dce30a575fed603f2d704 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Wed, 30 Oct 2013 16:50:34 +0000
Subject: [PATCH] Fix silly bug in module-begin for #lang marketplace. Closes
 #3

---
 lang/base.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lang/base.rkt b/lang/base.rkt
index 2788665..0f5625a 100644
--- a/lang/base.rkt
+++ b/lang/base.rkt
@@ -48,7 +48,7 @@
 		(if (free-identifier=? #'head #'begin)
 		    (accumulate-actions action-ids
 					final-forms
-					(append (syntax->list #'(rest ...)) forms))
+					(append (syntax->list #'(rest ...)) (cdr forms)))
 		    (if (ormap (lambda (i) (free-identifier=? #'head i))
 			       (syntax->list #'(define-values define-syntaxes begin-for-syntax
 						 module module*