anchor.diff:  				    stream state)
     ;; XXX DC
     ;; XXX Disable recording?
  -  (letf (((medium-transformation stream) +identity-transformation+))
  +  (with-identity-transformation (stream)
       (multiple-value-bind (x1 y1 x2 y2)
           (output-record-hit-detection-rectangle* record)
         (ecase state
  
positive.code:    sequences of coordinates."))
  
  (defun coord-seq-bounds (coord-seq border)
    (let* ((min-x (elt coord-seq 0))
  	 (min-y (elt coord-seq 1))
  	 (max-x min-x)
  
negative.code: 	 (with-sheet-medium (medium stream)
  	   (when (stream-recording-p stream)
  	     (let ((record (make-instance ',class-name
                                            :stream stream
                                            ,@arg-list)))
  	       (stream-add-output-record stream record)))
  	   (when (stream-drawing-p stream)
               (with-identity-transformation (medium)
                 (,method-name medium ,@args)))))
         (defmethod replay-output-record ((record ,class-name) stream
  					&optional (region +everywhere+)
                                          (x-offset 0) (y-offset 0))
  