diff --git a/collects/test-engine/scheme-tests.ss b/collects/test-engine/scheme-tests.ss
index a8367c670b..0da7d2e858 100644
--- a/collects/test-engine/scheme-tests.ss
+++ b/collects/test-engine/scheme-tests.ss
@@ -220,7 +220,9 @@
                           (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)
-           (when exn (raise exn))]
+           (if exn
+	       (raise exn)
+	       #f)]
           [else
            #t])))