.

original commit: 4133c5cd60c2720444acfafca1b3694a25b70ff3
2004-02-20 13:43:52 +00:00 · 2004-02-20 13:43:52 +00:00 · 8cbf7c2dc7
commit 8cbf7c2dc7
parent 61f3bd5607
1 changed files with 1 additions and 1 deletions
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@ -6515,7 +6515,7 @@
 						     (with-handlers ([void #f])
 						       (let-values ([(base name dir?) (split-path v)])
 							 (let ([super (and (not dir?) 
-									   (or (and (string? base) 
+									   (or (and (path? base) 
 										    (directory-exists? base)
 										    base)
 									       (and (eq? base 'relative)