Index: /branches/working-0711/ccl/lib/pathnames.lisp
===================================================================
--- /branches/working-0711/ccl/lib/pathnames.lisp	(revision 12952)
+++ /branches/working-0711/ccl/lib/pathnames.lisp	(revision 12953)
@@ -487,5 +487,5 @@
 	    (when (and do-files (%file*= name type sub))
 	      (multiple-value-bind (name type) (%std-name-and-type sub)
-		(setq ans (%cons-pathname (or dir-list (setq dir-list (reverse so-far))) name type))
+		(setq ans (%cons-pathname (or dir-list (setq dir-list (reverse so-far))) name type nil device))
 		(when (or (null test) (funcall test ans))
 		  (push (if follow-links (truename ans) ans) result))))))))