diff --git a/test/test-deferred-warnings.script b/test/test-deferred-warnings.script
index 1f62b418efa4d011b7797d2bc4dbc551a924dbd8..9580694a1487f8ead0e22ee44b2040f0cf21db9a 100644
--- a/test/test-deferred-warnings.script
+++ b/test/test-deferred-warnings.script
@@ -104,7 +104,6 @@
                         t))
    (handler-case
     (let ((*compile-file-warnings-behaviour* :error))
-      (trace compile-file)
       (load-system :undefined-variables)
       nil)
     (compile-failed-error (x) (expected-error x))
@@ -112,3 +111,9 @@
     (error (x)
            (format t "Unexpected error type: ~a" (type-of x))
            nil))))
+(assert
+ (handler-case
+  (let ((*compile-file-warnings-behaviour* :warning))
+    (load-system :undefined-variables :force t)
+    nil)
+  (error () t)))