From eb096f689a440bd43457e6fb747bb0fe6905127a Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 24 Jul 2000 21:36:29 +0000
Subject: [PATCH] .

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

diff --git a/collects/mzlib/functior.ss b/collects/mzlib/functior.ss
index ed28824..62c39a3 100644
--- a/collects/mzlib/functior.ss
+++ b/collects/mzlib/functior.ss
@@ -91,7 +91,7 @@
     (polymorphic
      (lambda (thunk)
        (let/ec escape
-         (with-handlers ([void (lambda (x) (escape (void)))])
+         (with-handlers ([not-break-exn? (lambda (x) (escape (void)))])
            (thunk))))))
   
   (define remove