diff --git a/compiler/constraint.lisp b/compiler/constraint.lisp
index ab6a4530a6f7e91e0b477f6977803afc5bd121b7..506433347d056cb82e6674b4d4e4f1d1653ecda4 100644
--- a/compiler/constraint.lisp
+++ b/compiler/constraint.lisp
@@ -404,7 +404,7 @@
   (let ((home (lambda-home (lambda-var-home var))))
     (flet ((frob (l)
 	     (dolist (node l nil)
-	       (unless (eq (lambda-home (block-lambda (node-block node))) home)
+	       (unless (eq (node-home-lambda node) home)
 		 (return t)))))
       (or (frob (leaf-refs var))
 	  (frob (basic-var-sets var))))))