diff --git a/pcl/dlisp2.lisp b/pcl/dlisp2.lisp
index b323a66949e143a6d8dd3c4983a3c5916d843b48..dd543b2d813a6f8ab606e819db7a91671ccdfaf2 100644
--- a/pcl/dlisp2.lisp
+++ b/pcl/dlisp2.lisp
@@ -137,7 +137,7 @@
   (if cached-emf-p
       #'(lambda (cache miss-fn)
 	  (declare (type function miss-fn))
-	  #'(lambda (&rest args)
+	  #'(#+cmu kernel:instance-lambda #-cmu lambda (&rest args)
 	      (declare #.*optimize-speed*)
 	      #+copy-&rest-arg (setq args (copy-list args))
 	      (with-dfun-wrappers (args metatypes)
@@ -153,7 +153,7 @@
 			      (invoke-emf emf args))))))))
       #'(lambda (cache emf miss-fn)
 	  (declare (type function miss-fn))
-	  #'(lambda (&rest args)
+	  #'(#+cmu kernel:instance-lambda #-cmu lambda (&rest args)
 	      (declare #.*optimize-speed*)
 	      #+copy-&rest-arg (setq args (copy-list args))
 	      (with-dfun-wrappers (args metatypes)