diff --git a/collects/setup/main.ss b/collects/setup/main.ss index ddfde737ba..4ab22f6f29 100644 --- a/collects/setup/main.ss +++ b/collects/setup/main.ss @@ -103,6 +103,7 @@ ;; If something goes wrong, of course, give up on .zo files. (parameterize ([uncaught-exception-handler (lambda (exn) + (when (exn:break? exn) (exit 1)) (if skip-zo? (escape (lambda () (raise exn)))