diff --git a/test/compile-asdf.lisp b/test/compile-asdf.lisp
index 33cc90675e1aee95163e59e7bdd3d8e54d122d60..0f8969711a8257b3e4c471e2559dfe0bf3df48fd 100644
--- a/test/compile-asdf.lisp
+++ b/test/compile-asdf.lisp
@@ -12,7 +12,9 @@
              (compile-file "asdf.lisp"))
          (declare (ignore result))
          (cond (warnings-p
-                #-ecl ;;; ECL gives warnings that it shouldn't!
+                ;;; ECL gives warnings that it shouldn't!
+                #+ecl (leave-lisp "ASDF compiled with warnings. Please fix ECL." 0)
+                #-ecl
                 (leave-lisp "Testsuite failed: ASDF compiled with warnings" 1))
                (errors-p
                 (leave-lisp "Testsuite failed: ASDF compiled with ERRORS" 2))
@@ -20,3 +22,4 @@
                 (leave-lisp "ASDF compiled cleanly" 0)))))
       (t
        (leave-lisp "Testsuite failed: unable to find ASDF source" 3)))
+