diff --git a/test/compile-asdf.lisp b/test/compile-asdf.lisp
index ce1742df9ddbffc337b5eac5e4d1cd409fd3ee21..1b150ec712407569674aff370ea5ee8ec131796c 100644
--- a/test/compile-asdf.lisp
+++ b/test/compile-asdf.lisp
@@ -1,5 +1,7 @@
 (in-package #:common-lisp-user)
 
+(proclaim '(optimize (speed 2) (safety 3) #-allegro (debug 3)))
+
 (load (make-pathname :name "script-support" :defaults *load-pathname*))
 
 (cond
diff --git a/test/script-support.lisp b/test/script-support.lisp
index eb354fa7be94e7c9cf8e1b6aa812c5332237970b..0e1440885ae5325f06673bb22d9b229efffae5f2 100644
--- a/test/script-support.lisp
+++ b/test/script-support.lisp
@@ -1,5 +1,8 @@
 (in-package #:common-lisp-user)
 
+(declaim (optimize (speed 2) (safety 3) #-allegro (debug 3)))
+(proclaim '(optimize (speed 2) (safety 3) #-allegro (debug 3)))
+
 ;; 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*
diff --git a/test/test-configuration.script b/test/test-configuration.script
index 96477fa54ece8521c9e96b2f70761cf12daabd53..5b0e4552dcfaf41d9d8aa7d6e5cb0e4d8162bdd4 100644
--- a/test/test-configuration.script
+++ b/test/test-configuration.script
@@ -46,8 +46,6 @@
 
 (cl-user::quit-on-error
 
-(format t "~&subdirectories of dir2/: ~S~%" (subdirectories (under-test-directory "dir2/")))
-(assert (= 2 (length (subdirectories (under-test-directory "dir2/")))))
 (assert
  (equal (parse-output-translations-string "/foo:/bar::/baz:/quux")
         '(:output-translations
@@ -72,6 +70,9 @@
 (create-asd-files)
 (create-conf-files)
 
+(format t "~&subdirectories of dir2/: ~S~%" (subdirectories (under-test-directory "dir2/")))
+(assert (= 2 (length (subdirectories (under-test-directory "dir2/")))))
+
 (initialize-source-registry
  `(:source-registry (:include ,(under-test-directory "conf.d/"))
                     :ignore-inherited-configuration))