Index: /trunk/ccl/level-1/l1-streams.lisp
===================================================================
--- /trunk/ccl/level-1/l1-streams.lisp	(revision 5605)
+++ /trunk/ccl/level-1/l1-streams.lisp	(revision 5606)
@@ -4100,4 +4100,7 @@
   nil)
 
+(defmethod stream-clear-output ((s string-output-stream))
+  nil)
+
 ;;; Should only be used for a stream whose class is exactly
 ;;; *string-output-stream-class* 
@@ -4540,4 +4543,5 @@
            (ioblock (make-string-input-stream-ioblock
                      :stream stream
+                     :offset offset
                      :device nil
                      :string data