diff --git a/pcl/walk.lisp b/pcl/walk.lisp
index c26c164a67198836b5438bed7cf2e0797248e142..1003ea606ba4eb8725a228a47335b486a5222adc 100644
--- a/pcl/walk.lisp
+++ b/pcl/walk.lisp
@@ -853,7 +853,7 @@
     (let ((entry (assoc macro (c::lexenv-functions env) :test #'eq)))
       (and entry 
 	   (eq (cadr entry) 'c::macro)
-	   (cddr entry)))))
+	   (function-lambda-expression (cddr entry))))))
 
 ); end of #+:CMU