From be0e32b2243495e512a75b32e7c31ac0d7b97785 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 2 Mar 2013 20:35:44 -0600 Subject: [PATCH] remove a use of normal-case-path closes PR 6086 --- collects/framework/private/finder.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/framework/private/finder.rkt b/collects/framework/private/finder.rkt index 31510a34cd..1624532449 100644 --- a/collects/framework/private/finder.rkt +++ b/collects/framework/private/finder.rkt @@ -47,7 +47,7 @@ (default-extension) style (default-filters) #:dialog-mixin frame:focus-table-mixin)]) (and f (or (not filter) (filter-match? filter f filter-msg)) - (let* ([f (normal-case-path (simple-form-path f))] + (let* ([f (simple-form-path f)] [dir (path-only f)] [name (file-name-from-path f)]) (cond