anchor.diff:  					&rest drawing-options)
     (with-sheet-medium (medium sheet)
       (with-medium-options (medium drawing-options)
  -      (funcall continuation medium))))
  +      ;; We need to pass SHEET to CONTINUATION (not MEDIUM, like we
  +      ;; used to) so that output recording works.
  +      (funcall continuation sheet))))
   
   ;;; Compatibility with real CLIM
  -(defmethod invoke-with-drawing-options ((sheet t) continuation
  +(defmethod invoke-with-drawing-options ((medium t) continuation
   					&rest drawing-options)
     (declare (ignore drawing-options))
  -  (funcall continuation sheet))
  +  (funcall continuation medium))
   
   (defmethod invoke-with-identity-transformation
       ((sheet sheet) continuation)
  
positive.code:                                   :radius-left :radius-right
                                    :radius-top  :radius-bottom))
       args)))
  
  
negative.code:     (unwind-protect
          (progn
            (when (eq ink old-ink) (setf ink nil))
  
  	  (when ink
  	      (setf (medium-ink medium) ink))
  	  (when transformation
  