Index: /trunk/ccl/level-1/l1-files.lisp
===================================================================
--- /trunk/ccl/level-1/l1-files.lisp	(revision 298)
+++ /trunk/ccl/level-1/l1-files.lisp	(revision 299)
@@ -1239,6 +1239,7 @@
 
 (defun pathname-device (thing &key case)
-  (declare (ignore case thing))
-  :unspecific)
+  (declare (ignore case))
+  (and (pathname thing)			;type-checking
+       :unspecific))