anchor.diff:  
   (defmethod tree-recompute-extent-aux ((record compound-output-record))
     (let ((new-x1 0)
  -	(new-y1 0)
  -	(new-x2 0)
  -	(new-y2 0)
  -	(first-time t))
  +        (new-y1 0)
  +        (new-x2 0)
  +        (new-y2 0)
  +        (first-time t))
       (map-over-output-records
        (lambda (child)
          (if first-time
  
positive.code: (defmethod add-string-output-to-text-record
      ((text-record standard-text-displayed-output-record)
       string start end text-style string-width height new-baseline)
    (setf end (or end (length string)))  
    (let ((length (max 0 (- end start))))
      (cond
        ((eql length 1)
  
negative.code:       (stream-cursor-position stream)
      (with-sheet-medium (medium stream)
        (letf (((medium-transformation medium)
                (if first-quadrant
                    (make-scaling-transformation 1 -1)
                    +identity-transformation+)))
          (let ((record (with-output-to-output-record (stream record-type)
                          (funcall cont stream))))
            ;; Bounding  rectangle is in sheet coordinates!
            (with-bounding-rectangle* (x1 y1 x2 y2)
                record
              (declare (ignore x2))
              (if first-quadrant
                  (setf (output-record-position record)
                        (values (max cx (+ cx x1))
                                (if height
                                    (max cy (+ cy (- height (- y2 y1))))
                                    cy)))
                  (setf (output-record-position record)
                        (values (max cx (+ cx x1)) (max cy (+ cy y1)))))
              (when (stream-recording-p stream)
                (stream-add-output-record stream record))
              (when (stream-drawing-p stream)
                (replay record stream))
              (if move-cursor
                  (let ((record-height (- y2 y1)))
                    (setf (stream-cursor-position stream)
                          (values cx
                                  (if first-quadrant
                                      (+ cy (max (- y1)
                                                 (or height 0)
                                                 record-height))
                                      (+ cy (max (or height 0)
                                                 record-height))))))
                  (setf (stream-cursor-position stream) (values cx cy)))
              record))))))
  
  ;;; ----------------------------------------------------------------------------
  ;;;  Baseline
  