From 613967436488d1d90a3e3b1076d6bda2665e8668 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 13 Feb 2000 14:54:46 +0000 Subject: [PATCH] ... original commit: 0982fcec3ea62a8bbd1c67841a95e94a24310b4c --- collects/framework/group.ss | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/collects/framework/group.ss b/collects/framework/group.ss index 47307da0..a33eb23b 100644 --- a/collects/framework/group.ss +++ b/collects/framework/group.ss @@ -198,7 +198,8 @@ ;; allow for the possiblity of filenames that are urls (with-handlers ([(lambda (x) #t) (lambda (x) name)]) - (mzlib:file:normalize-path name))] + (normal-case-path + (mzlib:file:normalize-path name)))] [test-frame (lambda (frame) (and (is-a? frame frame:editor<%>) @@ -208,8 +209,9 @@ (string=? normalized (with-handlers ([(lambda (x) #t) (lambda (x) filename)]) - (mzlib:file:normalize-path - filename)))))))]) + (normal-case-path + (mzlib:file:normalize-path + filename))))))))]) (let loop ([frames frames]) (cond [(null? frames) #f]