diff --git a/scheme/eval.sld b/scheme/eval.sld
index 896a39b5..3caa8e12 100644
--- a/scheme/eval.sld
+++ b/scheme/eval.sld
@@ -485,7 +485,8 @@
      (map (lambda (v)
             (list 'macro (cadr v)))
           defined-macros)
-     (create-environment '() '())))
+     a-env))
+     ;(create-environment '() '())))
 
          (expanded (expand exp macro-env rename-env))
          ;(expanded (expand exp a-env rename-env))