diff --git a/test/test-undeferred-warnings.script b/test/test-undeferred-warnings.script
index 810bcd23d1794597a400a98dec4296e8da2ea669..36fed7965d06e7427882ca4bf6db609f45b97a64 100644
--- a/test/test-undeferred-warnings.script
+++ b/test/test-undeferred-warnings.script
@@ -10,13 +10,14 @@
 (def-test-system :undefined-variables
   :components ((:file "fun-with-undefined-locals")))
 
-(errors #+(or allegro clozure) compile-file-error
-        #+(or cmu scl) null
-        #+sbcl compile-failed-error
-        (let ((*compile-file-warnings-behaviour* :error))
-          (load-system :undefined-variables)))
-(errors #+(or allegro clozure) compile-file-error
-        #+(or cmu scl) null
-        #+sbcl compile-failed-error
-        (let ((*compile-file-warnings-behaviour* :warning))
-          (load-system :undefined-variables :force t)))
+
+#+(or allegro clozure cmu sbcl scl)
+(progn
+  (errors #+(or allegro clozure) compile-file-error
+          #+(or cmu sbcl scl) null
+          (let ((*compile-file-warnings-behaviour* :error))
+            (load-system :undefined-variables)))
+  (errors #+(or allegro clozure) compile-file-error
+          #+(or cmu sbcl scl) null
+          (let ((*compile-file-warnings-behaviour* :warning))
+            (load-system :undefined-variables :force t))))