diff --git a/collects/tests/framework/main.ss b/collects/tests/framework/main.ss
index 0191b3f726..dbe824aafd 100644
--- a/collects/tests/framework/main.ss
+++ b/collects/tests/framework/main.ss
@@ -103,14 +103,17 @@
 
 (shutdown-listener)
 
-(cond
-  [(not (null? jumped-out-tests))
-   (printf "Test suites ended with exns ~s\n" jumped-out-tests)]
-  [(null? failed-tests)
-   (printf "All tests passed.\n")]
-  [else
-   (debug-printf schedule "FAILED tests:\n")
-   (for-each (lambda (failed-test)
-               (debug-printf schedule "  ~a // ~a\n"
-                             (car failed-test) (cdr failed-test)))
-             failed-tests)])
+(exit (cond
+        [(not (null? jumped-out-tests))
+         (printf "Test suites ended with exns ~s\n" jumped-out-tests)
+         1]
+        [(null? failed-tests)
+         (printf "All tests passed.\n")
+         0]
+        [else
+         (debug-printf schedule "FAILED tests:\n")
+         (for-each (lambda (failed-test)
+                     (debug-printf schedule "  ~a // ~a\n"
+                                   (car failed-test) (cdr failed-test)))
+                   failed-tests)
+         1]))