~ chicken-core (chicken-5) 665fadc427ec1c50d558f845c3325797782bf9af

commit 665fadc427ec1c50d558f845c3325797782bf9af
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Mar 24 09:32:11 2011 -0400
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Thu Mar 24 09:32:11 2011 -0400

    fixed obligatory bug

diff --git a/expand.scm b/expand.scm
index ceae9a95..2aaf4aab 100644
--- a/expand.scm
+++ b/expand.scm
@@ -1336,10 +1336,11 @@
 			     (let ((mtmp (string->symbol 
 					  (##sys#string-append 
 					   "_"
-					   (symbol->string name)))))
+					   (symbol->string name))))
+				   (%module (r 'module)))
 			       `(##core#begin
-				 (,(r 'module) ,mtmp * ,@(cddddr x))
-				 (##core#module ,name = (,app ,mtmp)))))
+				 (,%module ,mtmp * ,@(cddddr x))
+				 (,%module ,name = (,app ,mtmp)))))
 			    (else
 			     (##sys#register-module-alias name app)
 			     '(##core#undefined))))