patch from Tomas Lozano-Perez

svn: r2203
2006-02-13 01:35:32 +00:00 · 2006-02-13 01:35:32 +00:00 · b50b05dd5b
commit b50b05dd5b
parent 79ef8f3f9c
1 changed files with 1 additions and 1 deletions
--- a/collects/slibinit/init.ss
+++ b/collects/slibinit/init.ss
@ -53,7 +53,7 @@
 	       (let ([p (collection-path "mzlib")])
 		 (let*-values ([(base name dir?) (split-path p)]
 			       [(base name dir?) (split-path base)])
-		   (and (string? base) base))))
+		   (and (path? base) (path->string base)))))
 	     (case (system-type)
 	       ((unix macosx) "/usr/local/lib/plt")
 	       ((windows) "C:\\Program Files\\PLT")