Index: /trunk/ccl/level-1/l1-sysio.lisp
===================================================================
--- /trunk/ccl/level-1/l1-sysio.lisp	(revision 4914)
+++ /trunk/ccl/level-1/l1-sysio.lisp	(revision 4915)
@@ -484,5 +484,5 @@
       (call-next-method))))
 
-(defmethod select-stream-class ((class file-stream) in-p out-p char-p)
+(defmethod select-stream-class ((class fundamental-file-stream) in-p out-p char-p)
   (if char-p
     (if (and in-p out-p)