diff --git a/collects/test-engine/scheme-tests.ss b/collects/test-engine/scheme-tests.ss
index 1d12e74842..a8367c670b 100644
--- a/collects/test-engine/scheme-tests.ss
+++ b/collects/test-engine/scheme-tests.ss
@@ -220,7 +220,7 @@
                           (list (maker src (test-format) test-val expect range) test-val #f)])))])
     (cond [(check-fail? result)
            (send (send test-info get-info) check-failed result (check-fail-src result) exn)
-           (raise exn)]
+           (when exn (raise exn))]
           [else
            #t])))