Index: /trunk/ccl/level-1/l1-sysio.lisp
===================================================================
--- /trunk/ccl/level-1/l1-sysio.lisp	(revision 5254)
+++ /trunk/ccl/level-1/l1-sysio.lisp	(revision 5255)
@@ -20,5 +20,6 @@
   (octet-pos 0 :type fixnum)		; current io position in octets
   (fileeof 0 :type fixnum)		; file length in elements
-)
+  (input-filter #'false)
+  (output-filter #'false))
 
 
@@ -304,5 +305,5 @@
       (format out "(~s/" (stream-filename s))
       (if file-ioblock
-	(format out "~d)" (file-ioblock-device file-ioblock))
+	(format out "~d ~a)" (file-ioblock-device file-ioblock) (encoding-name (ioblock-encoding file-ioblock)))
 	(format out ":closed")))))