From 81189c3f1689218ea79a6b923f6e6e9ec3aea434 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 6 Mar 2003 23:06:08 +0000
Subject: [PATCH] .

original commit: d28a5334384ad293e0b68aacdca26e1c9da0d5df
---
 collects/mzlib/process.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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))