Index: /trunk/ccl/level-1/l1-streams.lisp
===================================================================
--- /trunk/ccl/level-1/l1-streams.lisp	(revision 5417)
+++ /trunk/ccl/level-1/l1-streams.lisp	(revision 5418)
@@ -4124,4 +4124,5 @@
                                    (ioblock-stream data)
                                    (ioblock-stream data) stream
+                                   (ioblock-charpos data) 0
                                    (string-output-stream-ioblock-index data) 0))
                            data)))))