diff --git a/pkgs/drracket-pkgs/drracket/drracket/private/unit.rkt b/pkgs/drracket-pkgs/drracket/drracket/private/unit.rkt index eb83e90f78..73c815b2fd 100644 --- a/pkgs/drracket-pkgs/drracket/drracket/private/unit.rkt +++ b/pkgs/drracket-pkgs/drracket/drracket/private/unit.rkt @@ -3161,7 +3161,7 @@ (set-visible-regions interactions-text vi))) (define/private (pathname-equal? p1 p2) - (with-handlers ([exn:fail:filesystem? (λ (x) #f)]) + (with-handlers ([exn:fail? (λ (x) #f)]) (string=? (path->string (normal-case-path (normalize-path p1))) (path->string (normal-case-path (normalize-path p2))))))