diff --git a/collects/mzlib/process.ss b/collects/mzlib/process.ss index 2933f71..c505ebc 100644 --- a/collects/mzlib/process.ss +++ b/collects/mzlib/process.ss @@ -57,8 +57,8 @@ (dynamic-wind void (lambda () - (ready-for-break) (with-handlers ([exn:break? void]) + (ready-for-break) (copy-port cin in))) (lambda () (close-output-port in)))))]) (and get-thread? t))