diff --git a/pkgs/racket-test/tests/pkg/test.rkt b/pkgs/racket-test/tests/pkg/test.rkt
index 42b0801335..1f36114fb6 100644
--- a/pkgs/racket-test/tests/pkg/test.rkt
+++ b/pkgs/racket-test/tests/pkg/test.rkt
@@ -14,14 +14,18 @@
            (for/list ([f-stx (in-list (syntax->list #'(f ...)))])
              (define f (syntax->datum f-stx))
              (format "tests-~a.rkt" f))])
-       (syntax/loc stx
-         (run-tests*
-          (list (let ()
-                  (local-require (only-in tests-f run-pkg-tests))
-                  (λ ()
-                    (printf "starting ~a\n" 'tests-f)
-                    (run-pkg-tests)))
-                ...))))]))
+         (syntax/loc stx
+           (let ([succesful 0])
+             (run-tests*
+              (list (let ()
+                      (local-require (only-in tests-f run-pkg-tests))
+                      (λ ()
+                        (printf "starting ~a\n" 'tests-f)
+                        (run-pkg-tests)
+                        (set! succesful (add1 succesful))))
+                    ...))
+             (unless (= succesful (length '(f ...)))
+               (exit 1)))))]))
 
 (define (run-tests* l)
   (run-pkg-tests*