anchor.diff:                      (write-byte b1 out)))))
       (stream-decode-ucs-string octets)))
   
  -(defmethod stream-read-ucs-be-string ((instream base-stream))
  +(defmethod stream-read-ucs-be-string ((instream mem-stream))
     "Read in a null terminated UCS-BE string."
     (let ((octets (ccl:with-output-to-vector (out)
                     (do* ((b0 (stream-read-u8 instream)
  
positive.code:                     (write-byte b out)))))
      (stream-decode-utf-8-string octets)))
  
  (defmethod stream-read-string ((instream base-stream) &key (encoding 0))
    "Read in a null terminated string of a given encoding."
    (ecase encoding
      (0 (stream-read-iso-string    instream))
  
negative.code:                     (write-byte b out)))))
      (stream-decode-iso-string octets)))
  
  (defmethod stream-read-ucs-string ((instream mem-stream))
    "Read in a null terminated UCS string."
    (let ((octets (ccl:with-output-to-vector (out)
                    (do* ((b0 (stream-read-u8 instream)
  