anchor.diff:  ;;; FIXME: Use DRAW-DESIGN*, that is fix DRAW-DESIGN*.
   
   (defun %handle-repaint (stream region)
  -  (let ((region (bounding-rectangle region)))
  -    (with-bounding-rectangle* (x1 y1 x2 y2) region
  -      (with-output-recording-options (stream :record nil)
  -	(draw-rectangle* stream x1 y1 x2 y2 :filled T :ink +background-ink+)))
  -    (stream-replay stream region)))
  +  (when (output-recording-stream-p stream)
  +    (let ((region (bounding-rectangle region)))
  +      (with-bounding-rectangle* (x1 y1 x2 y2) region
  +        (with-output-recording-options (stream :record nil)
  +          (draw-rectangle* stream x1 y1 x2 y2 :filled T :ink +background-ink+)))
  +      (stream-replay stream region))))
   
   (defmethod handle-repaint ((stream output-recording-stream) region)
     (%handle-repaint stream region))
  
positive.code:                                                (record-type 'standard-sequence-output-record))
    ;; I am not sure what exactly :height should do.
    ;; --GB 2003-05-25
    (multiple-value-bind (cx cy)
        (stream-cursor-position stream)
      (let ((record
  
negative.code:       (cond ((null height)
               (setf (output-record-position record)
                     (values cx cy)))
              (t             
               (setf (output-record-position record)
                     (values cx
                             (- cy (- (bounding-rectangle-height record) height))))))
        (with-output-recording-options (stream :draw t :record nil)
          (replay-output-record record stream))
        (cond (move-cursor
  