diff --git a/collects/tests/typed-scheme/run.rkt b/collects/tests/typed-scheme/run.rkt
index 84d94c6f06..d014a95eb6 100644
--- a/collects/tests/typed-scheme/run.rkt
+++ b/collects/tests/typed-scheme/run.rkt
@@ -39,4 +39,5 @@
                                   (if (missed-opt?) (list missed-optimization-tests)     '())
                                   (if (bench?)      (list (compile-benchmarks))          '())))])])
       (unless (= 0 ((exec) to-run))
-        (eprintf "Typed Racket Tests did not pass.\n"))))
+        (eprintf "Typed Racket Tests did not pass.\n")
+        (exit 1))))