ensure-directories-exist fails when passed a logical pathname.

(defun ensure-directories-exist (pathspec &key verbose)

-  (let ((pathname (pathname pathspec))

+  (let ((pathname (translate-logical-pathname (pathname pathspec)))

(created-p nil))

    (when (wild-pathname-p pathname)

   ....