diff --git a/test/test-force.script b/test/test-force.script
index d182deaec04717b09ac0c80c613dd0024dbc6048..a4e5bb952c5189f8ed3cfe6ebc0d3d5e45202c82 100644
--- a/test/test-force.script
+++ b/test/test-force.script
@@ -1,6 +1,6 @@
 ;;; -*- Lisp -*-
 (load "script-support")
-(load "../asdf")
+(load (compile-file-pathname "../asdf"))
 (quit-on-error
  (setf asdf:*central-registry* '(*default-pathname-defaults*))
 
diff --git a/test/test-module-pathnames.script b/test/test-module-pathnames.script
index 20516542b52c1f5f0cf52cbd5684a010966efcc9..d7a1995386eb441f927e096f1eb22d1f777aed50 100644
--- a/test/test-module-pathnames.script
+++ b/test/test-module-pathnames.script
@@ -1,6 +1,6 @@
 ;;; -*- Lisp -*-
 (load "script-support")
-(load "../asdf")
+(load (compile-file-pathname "../asdf"))
 
 (quit-on-error
  (setf asdf:*central-registry* '(*default-pathname-defaults*))
diff --git a/test/test-nested-components.script b/test/test-nested-components.script
index d0eed16ed65b6ca492fdabe925432070496368ea..c8983b19f6b83193ea97a0ee15fd564a9f6e4af2 100644
--- a/test/test-nested-components.script
+++ b/test/test-nested-components.script
@@ -3,7 +3,7 @@
 ;;; check that added nesting via modules doesn't confuse ASDF
 
 (load "script-support")
-(load "../asdf")
+(load (compile-file-pathname "../asdf"))
 (in-package #:common-lisp-user)
 
 (quit-on-error
diff --git a/test/test-package.script b/test/test-package.script
index 7a2031faeeec206c97206b4ada955b3e18d65aa0..f1f5017575e564b0f1509296af95762ec956faa2 100644
--- a/test/test-package.script
+++ b/test/test-package.script
@@ -1,7 +1,7 @@
 ;;; -*- Lisp -*-
 (in-package :cl-user)
 (load "script-support")
-(load "../asdf")
+(load (compile-file-pathname "../asdf"))
 (quit-on-error 
  (defun module () 1)
  (load "test-package.asd")
diff --git a/test/test-retry-loading-component-1.script b/test/test-retry-loading-component-1.script
index e322be2afd04e744399ad7ea6411d01a619ff4f4..a4f3a6e2fa815ce6f17c78a866c44558329e652e 100644
--- a/test/test-retry-loading-component-1.script
+++ b/test/test-retry-loading-component-1.script
@@ -3,7 +3,7 @@
 ;;; test asdf:try-recompiling restart
 
 (load "script-support")
-(load "../asdf")
+(load (compile-file-pathname "../asdf"))
 ;(trace asdf::find-component)
 ;(trace asdf:run-shell-command asdf:oos asdf:perform asdf:operate)
 ;#+allegro
diff --git a/test/test-static-and-serial.script b/test/test-static-and-serial.script
index ca6769e40bffab4a3191cbb70f459104e00ce2cc..7950114755d4bf1341f6f4256f7506cce924245a 100644
--- a/test/test-static-and-serial.script
+++ b/test/test-static-and-serial.script
@@ -1,6 +1,6 @@
 ;;; -*- Lisp -*-
 (load "script-support")
-(load "../asdf")
+(load (compile-file-pathname "../asdf"))
 (quit-on-error
  (setf asdf:*central-registry* '(*default-pathname-defaults*))
 
diff --git a/test/test-touch-system-1.script b/test/test-touch-system-1.script
index 178760d4642e246c99a5f2cbf26f1b8d9a53f5ba..250ce9b65715eed7c564681e6088b751eca823d4 100644
--- a/test/test-touch-system-1.script
+++ b/test/test-touch-system-1.script
@@ -4,7 +4,7 @@
 ;;; system that can be found using *system-definition-search-functions*
 
 (load "script-support")
-(load "../asdf")
+(load (compile-file-pathname "../asdf"))
 (quit-on-error
  (flet ((system-load-time (name)
           (let ((data (asdf::system-registered-p name)))
diff --git a/test/test-touch-system-2.script b/test/test-touch-system-2.script
index 5657fd6aea65c7d1005000ee5700798c770cd9e3..cf43f236eedfa383f47c63845d42df361b452716 100644
--- a/test/test-touch-system-2.script
+++ b/test/test-touch-system-2.script
@@ -4,7 +4,7 @@
 ;;; system that canNOT be found using *system-definition-search-functions*
 
 (load "script-support")
-(load "../asdf")
+(load (compile-file-pathname "../asdf"))
 (quit-on-error
  (flet ((system-load-time (name)
           (let ((data (asdf::system-registered-p name)))
diff --git a/test/test-try-recompiling-1.script b/test/test-try-recompiling-1.script
index fe71158dcae979c887fd6c6bb9f78e8f7e198fcd..85dbf8d62fe4f9e768060b9c23938af0ddd6dec4 100644
--- a/test/test-try-recompiling-1.script
+++ b/test/test-try-recompiling-1.script
@@ -3,7 +3,7 @@
 ;;; test asdf:try-recompiling restart
 
 (load "script-support")
-(load "../asdf")
+(load (compile-file-pathname "../asdf"))
 (defvar *caught-error* nil)
 
 (quit-on-error
diff --git a/test/test-utilities.script b/test/test-utilities.script
index 66569fa56ebc5f4384775d70be5d63c263db44ca..5dadd6396a7b7dbe752e3da8df5189f6e6b0e57d 100644
--- a/test/test-utilities.script
+++ b/test/test-utilities.script
@@ -1,6 +1,6 @@
 ;;; -*- Lisp -*-
 (load "script-support")
-(load "../asdf")
+(load (compile-file-pathname "../asdf"))
 (in-package :asdf)
 (cl-user::quit-on-error
 
diff --git a/test/test-version.script b/test/test-version.script
index 071f67d52f042cf511c3e5286878e51320f023c4..621e009d98e9965817c7eaa92cfcbd69c57d348f 100644
--- a/test/test-version.script
+++ b/test/test-version.script
@@ -1,6 +1,6 @@
 ;;; -*- Lisp -*-
 (load "script-support")
-(load "../asdf")
+(load (compile-file-pathname "../asdf"))
 (setf asdf:*central-registry* '(*default-pathname-defaults*))
 
 (defpackage :test-version-system
diff --git a/test/test1.script b/test/test1.script
index 0713778b8e55e829df6fb0e799182803ed6306b9..da3d9d650cac386dbd881d069feb9e4575a2f72a 100644
--- a/test/test1.script
+++ b/test/test1.script
@@ -1,6 +1,6 @@
 ;;; -*- Lisp -*-
 (load "script-support")
-(load "../asdf")
+(load (compile-file-pathname "../asdf"))
 
 (quit-on-error
  (setf asdf:*central-registry* '(*default-pathname-defaults*))
diff --git a/test/test2.script b/test/test2.script
index 046b029ff5d86d6ea63df9f91945f1a967f1696c..d2c75e98e9549a5871225162d64dcc2cd97bb3fb 100644
--- a/test/test2.script
+++ b/test/test2.script
@@ -1,6 +1,6 @@
 ;;; -*- Lisp -*-
 (load "script-support")
-(load "../asdf")
+(load (compile-file-pathname "../asdf"))
 (quit-on-error
  (format t "test2 1~%")
  (setf asdf:*central-registry* '(*default-pathname-defaults*))
diff --git a/test/test3.script b/test/test3.script
index 03ef637ca87a4424503de556c62587c1f186a747..3686261f80ae5dc3c11417adf17280c18cf82c6e 100644
--- a/test/test3.script
+++ b/test/test3.script
@@ -2,7 +2,7 @@
 #+(or f1 f2)
     (error "This test cannot run if :f1 or :f2 are on *features*")
 (load "script-support")
-(load "../asdf")
+(load (compile-file-pathname "../asdf"))
 (in-package :asdf)
 (cl-user::quit-on-error
  (let ((fasl1 (asdf:compile-file-pathname* (truename "file1.lisp")))
diff --git a/test/test4.script b/test/test4.script
index 668f9fb760bb0afff1dbef6400e834ffbe45ed8b..d9213413614be40fad427be5c3f4485319d273eb 100644
--- a/test/test4.script
+++ b/test/test4.script
@@ -1,7 +1,7 @@
 ;;; -*- Lisp -*-
 ;;; -*- Lisp -*-
 (load "script-support")
-(load "../asdf")
+(load (compile-file-pathname "../asdf"))
 (in-package :asdf)
 (cl-user::quit-on-error
  (setf asdf:*central-registry* '(*default-pathname-defaults*))
diff --git a/test/test8.script b/test/test8.script
index 15207d84202fe5dde599d8f513d607738809da6e..d6338b92f27c38c625a294a75dc201be59c2dfa2 100644
--- a/test/test8.script
+++ b/test/test8.script
@@ -3,7 +3,7 @@
 ;;; make sure we get a missing-component error
 
 (load "script-support")
-(load "../asdf")
+(load (compile-file-pathname "../asdf"))
 (in-package #:common-lisp-user)
 
 (quit-on-error
diff --git a/test/test9.script b/test/test9.script
index 35cff3c5a5b005eb8aa6d3a5014d4a6ff1b8ad31..eeaf1a80515500826aba92679ebe62068ba75126 100644
--- a/test/test9.script
+++ b/test/test9.script
@@ -3,7 +3,7 @@
 ;;; make sure we get a missing-component-of-version error
 
 (load "script-support")
-(load "../asdf")
+(load (compile-file-pathname "../asdf"))
 (in-package #:common-lisp-user)
 
 (quit-on-error
diff --git a/test/wild-module.script b/test/wild-module.script
index c45a95bfb5486c3cde37e5dcce6f67dd3c00d04f..417246816c7554a9945d3c0abe23b40c0a90a5e0 100644
--- a/test/wild-module.script
+++ b/test/wild-module.script
@@ -1,9 +1,9 @@
 ;;; -*- Lisp -*-
 (load "script-support")
-(load "../asdf")
+(load (compile-file-pathname "../asdf"))
 (quit-on-error 
 
- (load "../asdf")
+ (load (compile-file-pathname "../asdf"))
  (load "../wild-modules")
 
  (setf asdf:*central-registry* '(*default-pathname-defaults*))