.

original commit: 54725a478c93a2e8587e1944bdc949b594f4495c
2004-03-25 16:31:19 +00:00 · 2004-03-25 16:31:19 +00:00 · b027ce6f41
commit b027ce6f41
parent e35f7ebd70
1 changed files with 1 additions and 1 deletions
--- 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]