From 330c5ffc0c34ced064410b2b5ccf0022cd902284 Mon Sep 17 00:00:00 2001
From: Scott Owens <sowens@cs.utah.edu>
Date: Tue, 30 Nov 2004 18:05:17 +0000
Subject: [PATCH] *** empty log message ***

original commit: 8a7f5830e5abdf7f83f3752486dd6325abe68619
---
 collects/mzlib/thread.ss | 1 +
 1 file changed, 1 insertion(+)

diff --git a/collects/mzlib/thread.ss b/collects/mzlib/thread.ss
index 095abba..b9bf279 100644
--- a/collects/mzlib/thread.ss
+++ b/collects/mzlib/thread.ss
@@ -136,6 +136,7 @@
 			  ;;(printf "3. creating coroutine thread~n")
 			  (with-handlers (((lambda (exn) #t)
 					   (lambda (exn) 
+					     (enable-stop #t)
 					     (channel-put ex-ch exn))))
 			    (let ([v (f enable-stop)])
 			      (enable-stop #t)