diff --git a/collects/framework/private/frame.ss b/collects/framework/private/frame.ss index 0335ac283e..03de4e517b 100644 --- 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)])