Index: /trunk/source/level-1/l1-files.lisp
===================================================================
--- /trunk/source/level-1/l1-files.lisp	(revision 14440)
+++ /trunk/source/level-1/l1-files.lisp	(revision 14441)
@@ -372,5 +372,5 @@
 				      (pathname-type path)
 				      nil)))
-		       nil nil (pathname-host path)))))
+		       nil nil (pathname-host path) nil #+windows-target (pathname-device path)))))
 
 (defun %directory-list-namestring (list &optional logical-p)