Index: scheme.eval.scm
===================================================================
--- scheme.eval.scm	(revision 41640)
+++ scheme.eval.scm	(working copy)
@@ -31,7 +31,7 @@
        (lambda ()
 	 ;; create module...
 	 (%eval `(module ,name ()
-		   (import r7rs) ; for `import`
+		   (import (only r7rs import))
 		   ,@(map (lambda (spec)
 			    `(import ,(fixup-import/export-spec spec 'environment)))
 			  specs)))