diff --git a/code/load.lisp b/code/load.lisp
index d8b56a83bea02b9d17f7a0dad12bd379f7405df9..beee8b21b1fa8026ac9ad9c91c5dd9e6d815672d 100644
--- a/code/load.lisp
+++ b/code/load.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/load.lisp,v 1.79 2001/05/02 22:05:03 toy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/load.lisp,v 1.80 2001/05/30 16:56:26 pw Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -537,7 +537,7 @@
 		   (fasload filename)
 		   (sloload filename))
 	       (let ((pn (merge-pathnames (pathname filename)
-					  *default-pathname-defaults*)))
+					  *default-pathname-defaults* nil)))
 		 (if (wild-pathname-p pn)
 		     (dolist (file (directory pn) t)
 		       (internal-load pn file if-does-not-exist contents))