--- library.scm.orig	2005-07-31 00:41:57.000000000 -0500
+++ library.scm	2005-07-31 00:25:49.000000000 -0500
@@ -1515,7 +1515,8 @@
 			    (or (getenv (##sys#substring path 1 i)) "")
 			    (##sys#substring path i len))
 			   (loop (fx+ i 1)) ) ) ) ) )
-	      (else path) ) ) ) ) ) )
+	      (else path) )
+	    "") ) ) ) )
 
 (let ()
   (define (open name inp modes loc)