diff --git a/compiler/represent.lisp b/compiler/represent.lisp
index 4b3b0974bf80dcf224b1c194357f12549c191b89..7392a2aa13c74b273688465ae08bb599945d1eb4 100644
--- a/compiler/represent.lisp
+++ b/compiler/represent.lisp
@@ -287,10 +287,9 @@
   
   (do ((ref refs (tn-ref-next ref)))
       ((null ref))
-    (let* ((lambda (lambda-home
-		    (block-lambda
-		     (ir2-block-block
-		      (vop-block (tn-ref-vop ref))))))
+    (let* ((lambda (block-home-lambda
+		    (ir2-block-block
+		     (vop-block (tn-ref-vop ref)))))
 	   (tails (lambda-tail-set lambda)))
       (flet ((frob (fun)
 	       (setf (ir2-environment-number-stack-p