From 46106fb92193748b2993fc87942166d29b7c92a0 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 5 Jul 2008 14:17:56 +0000 Subject: [PATCH] Probably PR 9294 svn: r10618 --- collects/framework/private/frame.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)])