Probably PR 9294

svn: r10618 original commit: 46106fb92193748b2993fc87942166d29b7c92a0
2008-07-05 14:17:56 +00:00 · 2008-07-05 14:17:56 +00:00 · 50207ac5c7
commit 50207ac5c7
parent ebed61f4d6
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)])