anchor.diff:     (end-x)
      (end-y)
      (wrapped :initform nil
  -	    :accessor text-record-wrapped)))
  +	    :accessor text-record-wrapped)
  +   ))
   
   (defun text-displayed-output-record-p (x)
     (typep x 'text-displayed-output-record))
  
positive.code: 
  
  (defmethod get-text-record ((stream output-recording-stream))
    (let ((trec (stream-current-output-record stream)))
      (unless (text-displayed-output-record-p trec)
        (setq trec (make-instance 'text-displayed-output-record))
        (add-output-record trec (stream-output-history stream))
        (setf (stream-current-output-record stream) trec)
        (with-slots (start-x start-y end-x end-y x1 y1 x2 y2) trec
  	  (multiple-value-bind (cx cy) (stream-cursor-position stream)
  	    (setq start-x cx
  		  start-y (+ cy (stream-vertical-spacing stream))
  
negative.code: (defmethod add-string-output-to-text-record ((text-record text-displayed-output-record)
  					     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))
      (with-slots (strings baseline max-height start-y end-x end-y) text-record
                  (setq baseline (max baseline new-baseline)
                        strings (nconc strings (list (list end-x text-style (make-array (length string) :initial-contents string :element-type 'character :adjustable t :fill-pointer t))))
                        end-x (+ end-x width)
                        max-height (max max-height height)
                        end-y (max end-y (+ start-y max-height))
                        )))
    (tree-recompute-extent text-record))
  
  (defmethod replay-output-record ((record text-displayed-output-record) stream
  				 &optional region x-offset y-offset)
    (with-slots (strings baseline max-height start-x start-y wrapped
                 x y initial-x1 initial-y1) record
      (let ((old-medium (sheet-medium stream))
  	  (new-medium (make-medium (port stream) stream)))
        (unwind-protect
  	  (progn
  	    (setf (sheet-medium stream) new-medium)
  	    (setf (medium-sheet new-medium) stream)
              (setf (medium-transformation new-medium)
                     (make-translation-transformation
                      x-offset y-offset))
  	    (loop for y = (+ start-y baseline)
  		  for (x text-style string) in strings
  		  do (setf (medium-text-style new-medium) text-style)
  		     (draw-text* (sheet-medium stream) string x y
  				 :text-style text-style :clipping-region #-nil +everywhere+ #+nil(untransform-region (medium-transformation new-medium) region)))
  	    (if wrapped
  		(draw-rectangle* (sheet-medium stream)
  				 (+ wrapped 0) start-y (+ wrapped 4) (+ start-y max-height)
  