From b027ce6f41ec54840f3d9e43fcf74bea79f69b5a Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 25 Mar 2004 16:31:19 +0000 Subject: [PATCH] . original commit: 54725a478c93a2e8587e1944bdc949b594f4495c --- collects/framework/private/finder.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/framework/private/finder.ss b/collects/framework/private/finder.ss index a3f0e5a7..9c4e1807 100644 --- a/collects/framework/private/finder.ss +++ b/collects/framework/private/finder.ss @@ -694,7 +694,7 @@ [dir (path-only f)] [name (file-name-from-path f)]) (cond - [(not (and (string? dir) (directory-exists? dir))) + [(not (and (path-string? dir) (directory-exists? dir))) (message-box (string-constant error) (string-constant dir-dne)) #f]