anchor.diff:    (tree-recompute-extent text-record))
   
   (defmethod replay-output-record ((record text-displayed-output-record) stream
  -				 &optional region x-offset y-offset)
  +				 &optional region (x-offset 0) (y-offset 0))
     (with-slots (strings baseline max-height start-x start-y wrapped
  -               x y initial-x1 initial-y1) record
  +               x y x1 y1 initial-x1 initial-y1) record
       (let ((old-medium (sheet-medium stream))
   	  (new-medium (make-medium (port stream) stream)))
         (unwind-protect
  
positive.code: 					     string start end text-style width height
  					     new-baseline)
    (if end
        (setq end (min end (length string)))
        (setq end (1- (length string))))
    (let ((length (max 0 (- (1+ end) start))))
      (setq string (make-array length :displaced-to string :displaced-index-offset start))
  
negative.code:   (without-local-recording stream
                             (call-next-method)))
  
  #+nil
  (defmethod stream-write-string :around ((stream output-recording-stream) string
                                          &optional (start 0) end)
    ;; Problem: it is necessary to check for line wrapping. Now the
    ;; default method for STREAM-WRITE-STRING do char-by-char output,
    ;; therefore STREAM-WRITE-CHAR can do the right thing.
    (when (and (stream-recording-p stream)
               (slot-value stream 'local-record-p))
      (let* ((medium (sheet-medium stream))
  