Index: /trunk/ccl/level-1/l1-pathnames.lisp
===================================================================
--- /trunk/ccl/level-1/l1-pathnames.lisp	(revision 5656)
+++ /trunk/ccl/level-1/l1-pathnames.lisp	(revision 5657)
@@ -296,5 +296,5 @@
 (defun %split-component (thing &aux pos)
   ;"ab*cd*"  ->  "ab" "cd*"  
-  (if (or (null thing)(eq thing :unspecific)(null (setq pos (%path-mem "*" thing))))
+  (if (or (not (typep thing 'string))(null (setq pos (%path-mem "*" thing))))
     (values thing nil nil)
     (let* ((len (length thing)))