Probably PR 9294

svn: r10618
2008-07-05 14:17:56 +00:00 · 2008-07-05 14:17:56 +00:00 · 46106fb921
commit 46106fb921
parent 6dcc576ce7
1 changed files with 1 additions and 1 deletions
--- a/collects/framework/private/frame.ss
+++ b/collects/framework/private/frame.ss
@ -1019,7 +1019,7 @@
      (define/override (editing-this-file? filename)
        (let ([path-equal?
               (λ (x y)
-                 (with-handlers ((exn:fail:filesystem? (λ (x) #f)))
+                 (with-handlers ((exn:fail? (λ (x) #f)))
                   (equal? (normal-case-path (normalize-path x))
                           (normal-case-path (normalize-path y)))))])
          (let ([this-fn (get-filename)])