diff --git a/src/CHANGELOG b/src/CHANGELOG
index d3a765481..bbf7bdc29 100755
--- a/src/CHANGELOG
+++ b/src/CHANGELOG
@@ -150,6 +150,10 @@ ECL 11.1.1:
 ECL 11.1.2
 ==========
 
+* Bugs fixed:
+
+ - ENSURE-DIRECTORIES-EXIST did not work properly with logical pathnames.
+
 * Visible changes:
 
  - When printing error messages, the condition type is shown (M. Mondor)
diff --git a/src/lsp/mislib.lsp b/src/lsp/mislib.lsp
index 57c4b70c1..1243e1299 100644
--- a/src/lsp/mislib.lsp
+++ b/src/lsp/mislib.lsp
@@ -261,6 +261,8 @@ where CREATED is true only if we succeeded on creating all directories."
   (let* ((created nil)
 	 (full-pathname (merge-pathnames pathname))
 	 d)
+    (when (typep full-pathname 'logical-pathname)
+      (setf full-pathname (translate-logical-pathname full-pathname)))
     (when (or (wild-pathname-p full-pathname :directory)
 	      (wild-pathname-p full-pathname :host)
 	      (wild-pathname-p full-pathname :device))