From 8cbf7c2dc725f16432103ac43c4afbcba930274e Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 20 Feb 2004 13:43:52 +0000
Subject: [PATCH] .

original commit: 4133c5cd60c2720444acfafca1b3694a25b70ff3
---
 collects/mred/mred.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss
index 2f73de57..b6968a13 100644
--- 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)