diff --git a/test/script-support.lisp b/test/script-support.lisp
index c869f12ccd9242b4417365d965a565b743ce0273..16d835346e57d1d2721ef4958eeb66a650f9636f 100644
--- a/test/script-support.lisp
+++ b/test/script-support.lisp
@@ -402,7 +402,7 @@ is bound, write a message and exit on an error.  If
              (good (key)
                (when (probe-file afasl) (delete-file afasl))
                (rename-file tmp afasl)
-               compile-asdf key))
+               key))
         (cond
           ((null result)
            (bad :no-output))