diff --git a/gclload1.lsp b/gclload1.lsp
index 22b1861b0dac2e63049aa4a20091aef067b7c346..1404afc01d76ce322663cbe5c1a25473b3d58eba 100644
--- a/gclload1.lsp
+++ b/gclload1.lsp
@@ -4,7 +4,15 @@
             c:*suppress-compiler-notes*    t
             c:*suppress-compiler-messages* t)
 #+:armedbear (require 'pprint)
-#+cmu (setq ext:*gc-verbose* nil)
+#+cmu
+(progn
+  (setq ext:*gc-verbose* nil)
+  ;; Set *default-pathname-defaults* to include the full path to this
+  ;; file.  This is needed for the tests so that they'll be loaded
+  ;; correctly from the subdirectories.
+  (setf *default-pathname-defaults*
+	(make-pathname :name nil :type nil :defaults *load-truename*)))
+
 #+gcl (setq compiler:*suppress-compiler-notes* t
             compiler:*suppress-compiler-warnings* t
             compiler:*compile-verbose* nil