From b50b05dd5b95f930ea1ab1a80c85d37c52b4d55f Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 13 Feb 2006 01:35:32 +0000
Subject: [PATCH] patch from Tomas Lozano-Perez

svn: r2203
---
 collects/slibinit/init.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/slibinit/init.ss b/collects/slibinit/init.ss
index 9506e8238f..1c644d2d9d 100644
--- 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")