diff --git a/compiler/ir1tran.lisp b/compiler/ir1tran.lisp
index d615e62cea5fb9d66f3a206c45fcd6e7b046c9a7..ec053049c23281767699ed3422a162807edc46f8 100644
--- a/compiler/ir1tran.lisp
+++ b/compiler/ir1tran.lisp
@@ -193,7 +193,10 @@
 (defun ir1-convert-macro (start cont fun form)
   (declare (type continuation start cont))
   (ir1-convert start cont
-	       (handler-case (funcall fun form *lexical-environment*)
+	       (handler-case (funcall fun form
+				      #+new-compiler *lexical-environment*
+				      #-new-compiler
+				      (lexenv-functions *lexical-environment*))
 		 (error (condition)
 		   (compiler-error "(during macroexpansion)~%~A"
 				   condition)))))