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