diff --git a/pkgs/htdp-pkgs/htdp-test/2htdp/tests/stop-when-crash.rkt b/pkgs/htdp-pkgs/htdp-test/2htdp/tests/stop-when-crash.rkt index 2aa5c9d338..8e858ded71 100644 --- a/pkgs/htdp-pkgs/htdp-test/2htdp/tests/stop-when-crash.rkt +++ b/pkgs/htdp-pkgs/htdp-test/2htdp/tests/stop-when-crash.rkt @@ -8,4 +8,5 @@ (with-handlers ((exn:fail? void)) (big-bang 0 (on-draw (λ _ (empty-scene 500 500))) - (stop-when (λ _ (car '()))))) + (stop-when (λ _ (car '())))) + (displayln '(*** something went wrong in stop-when crash ***)))