--- chicken-2.3/utils.scm	2006-02-17 12:54:04.000000000 -0500
+++ chicken-2.3-alejo/utils.scm	2006-06-10 12:10:56.000000000 -0500
@@ -109,9 +109,10 @@
   (define (conc-dirs dirs)
     (##sys#check-list dirs 'make-pathname)
     (let loop ([strs dirs])
-      (if (null? strs)
-	  ""
-	  (string-append (chop-pds (car strs)) pds (loop (cdr strs))) ) ) )
+      (cond
+	((null? strs) "")
+	((string=? (car strs) "") (loop (cdr strs)))
+	(else (string-append (chop-pds (car strs)) pds (loop (cdr strs)))) ) ) )
   (define (_make-pathname dir file . ext)
     (let ([dirs (cond [(or (not dir) (null? dir)) ""]
 		      [(string? dir) (conc-dirs (list dir))]