Index: /trunk/ccl/level-1/l1-streams.lisp
===================================================================
--- /trunk/ccl/level-1/l1-streams.lisp	(revision 4919)
+++ /trunk/ccl/level-1/l1-streams.lisp	(revision 4920)
@@ -363,6 +363,8 @@
   (read-char-function 'ioblock-no-char-input)
   (read-byte-function 'ioblock-no-binary-input)
+  (write-byte-function 'ioblock-no-binary-output)
   (write-char-function 'ioblock-no-char-output)
-  (write-byte-function 'ioblock-no-binary-output))
+  (encoding nil)
+  (alternate-line-termination nil))