From 41db6cbaece645f87cf04217b97e8072a7cb40d8 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 24 Apr 2007 01:38:34 +0000
Subject: [PATCH] fix error message for expected symbols to local-expand

svn: r6030
---
 src/mzscheme/src/eval.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mzscheme/src/eval.c b/src/mzscheme/src/eval.c
index 76162ac404..12998bb89a 100644
--- a/src/mzscheme/src/eval.c
+++ b/src/mzscheme/src/eval.c
@@ -7761,7 +7761,7 @@ do_local_expand(const char *name, int for_stx, int catch_lifts, int for_expr, in
     kind = SCHEME_INTDEF_FRAME;
   else  {
     scheme_wrong_type(name,
-		      "'expression, 'module, 'top-level, or non-empty list",
+		      "'expression, 'module, 'module-begin, 'top-level, or non-empty list",
 		      1, argc, argv);
     return NULL;
   }