Index: /trunk/ccl/level-1/l1-files.lisp
===================================================================
--- /trunk/ccl/level-1/l1-files.lisp	(revision 729)
+++ /trunk/ccl/level-1/l1-files.lisp	(revision 730)
@@ -87,8 +87,8 @@
 ;; Reverse of above, take native namestring and make a Lisp pathname.
 (defun native-to-pathname (name)
-  (pathname (%path-std-quotes name nil "*")))
+  (pathname (%path-std-quotes name nil "*;:")))
 
 (defun native-to-directory-pathname (name)
-  (make-directory-pathname  :device nil :directory (%path-std-quotes name nil "*")))
+  (make-directory-pathname  :device nil :directory (%path-std-quotes name nil "*;:")))
 
 ;;; Make a pathname which names the specified directory; use