anchor.diff:                                    (+ wrapped 0) start-y (+ wrapped 4) (+ start-y max-height)
                                     :ink +foreground-ink+
                                     :filled t)))
  -	(setf (sheet-medium stream) old-medium)))))
  +	(setf (%sheet-medium stream) old-medium))))) ;is sheet a sheet-with-medium-mixin? --GB
   
   (defmethod output-record-start-cursor-position ((record text-displayed-output-record))
     (with-slots (start-x start-y) record
  
positive.code:                                                     transformation line-style text-style)))
                 (unwind-protect
                      (progn
                        (setf (sheet-medium stream) ,new-medium)
                        (setf (medium-sheet ,new-medium) stream)
                        (,method-name ,new-medium ,@args))
                   (setf (sheet-medium stream) ,old-medium)))))))))
  
  (def-grecording draw-point (point-x point-y)
    (with-transformed-position (transform point-x point-y)
  
negative.code: 	  (new-medium (make-medium (port stream) stream)))
        (unwind-protect
             (progn
               (setf (%sheet-medium stream) new-medium) ;is sheet a sheet-with-medium-mixin? --GB
               (setf (%medium-sheet new-medium) stream) ;is medium a basic medium?
               (setf (medium-transformation new-medium)
                     (make-translation-transformation
                      x-offset
  