diff --git a/test/script-support.lisp b/test/script-support.lisp
index 6b9f344a5430aaa02b61188acda530f6b85441c7..5da26d5d3c82a77f890a70c6ad112fed09e7ca7f 100644
--- a/test/script-support.lisp
+++ b/test/script-support.lisp
@@ -509,7 +509,7 @@ is bound, write a message and exit on an error.  If
 
 (defun compile-asdf-script ()
   (with-test ()
-    (ecase (with-asdf-conditions () (maybe-compile-asdf))
+    (ecase (with-asdf-conditions (t) (maybe-compile-asdf))
       (:not-found
        (leave-test "Testsuite failed: unable to find ASDF source" 3))
       (:previously-compiled