diff --git a/collects/tests/racket/place-channel.rkt b/collects/tests/racket/place-channel.rkt index 3b819ba4eb..894f797993 100644 --- a/collects/tests/racket/place-channel.rkt +++ b/collects/tests/racket/place-channel.rkt @@ -189,10 +189,10 @@ (place-wait pl)) (let ([p (place/anon ch - (with-handlers ([exn:break? (lambda (x) (place-channel-send ch "OK") (printf "Place caught break"))]) - (place-channel-send ch "ALIVE") - (sync never-evt) - (place-channel-send ch "NOK")))]) + (with-handlers ([exn:break? (lambda (x) (place-channel-send ch "OK"))]) + (place-channel-send ch "ALIVE") + (sync never-evt) + (place-channel-send ch "NOK")))]) (test "ALIVE" place-channel-receive p) (place-break p)