From c769bf6f96bd8c797e3a73f2ac20c0473d2fb8eb Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 2 Aug 2006 16:12:08 +0000
Subject: [PATCH] avoid path->string on a string

svn: r3928
---
 collects/slibinit/init.ss | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/slibinit/init.ss b/collects/slibinit/init.ss
index f6dc965be7..921b678ac1 100644
--- a/collects/slibinit/init.ss
+++ b/collects/slibinit/init.ss
@@ -73,7 +73,8 @@
             (path->string (collection-path "slib")))
           ;; look for slib in a few common places
           (ormap (lambda (dir)
-                   (and (directory-exists? dir) (path->string dir)))
+                   (and (directory-exists? dir) 
+                        (if (path? dir) (path->string dir) dir)))
                  '("/usr/share/slib"
                    ;; this is for RH/Fedora that uses umb-scheme for slib
                    "/usr/share/umb-scheme/slib"))