From 3bdf5e116d39805ee4364bb8c2ba88163a2326cc Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Tue, 5 Mar 2013 22:21:41 -0600
Subject: [PATCH] fix a with-handlers to avoid catching break exns

original commit: c7810ba2aeb5588707c1dfc39962a89b529b0e80
---
 collects/framework/private/group.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/framework/private/group.rkt b/collects/framework/private/group.rkt
index e880742c..675b24c9 100644
--- a/collects/framework/private/group.rkt
+++ b/collects/framework/private/group.rkt
@@ -238,7 +238,7 @@
       (define/public (locate-file name)
         (let* ([normalized
                 ;; allow for the possibility of filenames that are urls
-                (with-handlers ([(λ (x) #t)
+                (with-handlers ([exn:fail?
                                  (λ (x) name)])
                   (normal-case-path
                    (normalize-path name)))]