Index: posixunix.scm
===================================================================
--- posixunix.scm	(revision 15328)
+++ posixunix.scm	(working copy)
@@ -878,12 +878,13 @@
             (create-directory-helper name)))
 
 (define-inline (create-directory-helper-parents name)
-    (let ((c   ""))
+    (let* ((l (string-split name "/"))
+           (c (car l)))
         (for-each
              (lambda (x)
                  (set! c (string-append c "/" x))
                  (create-directory-helper-silent c))
-             (string-split name "/"))))
+             (cdr l))))
 
 (define create-directory
   (lambda (name #!optional parents?)