diff --git a/compiler/pack.lisp b/compiler/pack.lisp
index 09e9a24647967de8d1533da4a57b36dc008d7fc4..6201090363466e6d1fd99be7a4ae67c2f7eca89a 100644
--- a/compiler/pack.lisp
+++ b/compiler/pack.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/pack.lisp,v 1.30 1991/02/24 16:20:00 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/pack.lisp,v 1.31 1991/02/24 19:59:14 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1047,8 +1047,8 @@
 	 (size (finite-sb-current-size sb)))
     (loop for i from offset
           repeat (sc-element-size sc)
-          any (or (>= i size)
-		  (load-tn-offset-conflicts-in-sb op i)))))
+          thereis (or (>= i size)
+		      (load-tn-offset-conflicts-in-sb op sb i)))))
 
 
 ;;; Find-Load-TN-Target  --  Internal
@@ -1079,7 +1079,7 @@
 (defun select-load-tn-location (op sc)
   (declare (type tn-ref op) (type sc sc))
   (dolist (loc (sc-locations sc) nil)
-    (unless (load-tn-conflicts-in-sb op sc loc)
+    (unless (load-tn-conflicts-in-sc op sc loc)
       (return loc))))