diff --git a/test/script-support.lisp b/test/script-support.lisp
index a36150304f9af42fb7079bac02f73d0dc9193c87..d6e3e78b4135d5295c51562ce6047786ca61f6a2 100644
--- a/test/script-support.lisp
+++ b/test/script-support.lisp
@@ -1,4 +1,14 @@
-(defpackage :asdf-test (:use :common-lisp))
+(defpackage :asdf-test
+  (:use :common-lisp)
+  (:export
+   #:*test-directory* #:*asdf-directory*
+   #:load-asdf
+   #:register-directory #:asdf-load 
+   #:load-asdf-lisp #:compile-asdf #:load-asdf-fasl #:compile-load-asdf #:load-asdf-system
+   #:quit-on-error #:test-asdf
+   #:native-namestring
+   #:exit-lisp #:leave-lisp
+   #:quietly))
 
 (in-package #:asdf-test)
 
@@ -7,7 +17,7 @@
 
 ;;(format t "Evaluating asdf/test/script-support~%")
 
-;; We can't use asdf:merge-pathnames* because ASDF isn't loaded yet.
+;; We can't use asdf::merge-pathnames* because ASDF isn't loaded yet.
 ;; We still want to work despite and host/device funkiness.
 (defparameter *test-directory*
   (make-pathname :name nil :type nil :version nil
diff --git a/test/test-configuration.script b/test/test-configuration.script
index 21a8c032d91c04d583aedc7dd285db8544a8232e..55a1906f98bfb2a8029d712a4800552b6ac59897 100644
--- a/test/test-configuration.script
+++ b/test/test-configuration.script
@@ -2,6 +2,10 @@
 (load "script-support.lisp")
 (load-asdf)
 
+(in-package :asdf)
+
+(use-package :asdf-test)
+
 (defparameter *test-directory*
   (merge-pathnames* (coerce-pathname "tmp/") *asdf-directory*))
 
@@ -59,7 +63,7 @@
                        :if-does-not-exist :create)
       (format s "(defsystem :foo~D)~%" i))))
 
-(quit-on-error
+(asdf-test:quit-on-error
 
 (assert
  (equal (asdf::parse-output-translations-string "/foo:/bar::/baz:/quux")
diff --git a/test/test-multiple.script b/test/test-multiple.script
index b28cae2057212fe10437252b21a20c89fe90612d..7a9ecc2c39bd68bb3381528f5dd8650175113431 100644
--- a/test/test-multiple.script
+++ b/test/test-multiple.script
@@ -2,6 +2,9 @@
 (load "script-support.lisp")
 (load-asdf)
 
+(in-package :asdf)
+(use-package :asdf-test)
+
 (quit-on-error
  (let* ((asd (merge-pathnames* (coerce-pathname "test-multiple.asd")
                                *test-directory*))
diff --git a/test/test-static-and-serial.script b/test/test-static-and-serial.script
index 4e5f119648363d6e3361b9f59c289c75f01b9850..1b3b9253fc82985a107db29c91829eafa58fa86e 100644
--- a/test/test-static-and-serial.script
+++ b/test/test-static-and-serial.script
@@ -2,6 +2,9 @@
 (load "script-support.lisp")
 (load-asdf)
 
+(in-package :asdf)
+(use-package :asdf-test)
+
 #+gcl (trace coerce-pathname)
 
 (quit-on-error
diff --git a/test/test-utilities.script b/test/test-utilities.script
index a40a77319e73974a37be48e832475fda93e4a049..8cf58624d47600547d9f6f1077394e3bab7e5e0c 100644
--- a/test/test-utilities.script
+++ b/test/test-utilities.script
@@ -2,6 +2,9 @@
 (load "script-support.lisp")
 (load-asdf)
 
+(in-package :asdf)
+(use-package :asdf-test)
+
 (quit-on-error
 
 (assert