anchor.diff:    (with-slots (presentation) self
       (when presentation
         (erase-graphics-presentation presentation :stream STREAM)
  -      (setq presentation nil)
  -      #+clim-0.9 (clim-update-sensitivity stream))))
  +      (setq presentation nil))))
   
   (defmethod kill ((self basic-annotation) STREAM)
     "Erase the annotation and resign from the graph."
  
positive.code: 			     :object self
  			     :single-box (annotation-single-box self)
  			     :type (annotation-presentation-type self))
  		  (call-next-method self stream)))))))
        #+clim-0.9 (clim-update-sensitivity stream))))
  
  (defmethod display-p ((self basic-annotation)) t)
  
  
negative.code: ;;; object to compute the  value.
  
  (defgeneric DESCRIPTION-CHOICES (object)
    (:method-combination append :most-specific-first) ; Fixed in 1991?
    (:documentation "Returns an association list of descriptive string, function name."))
  
  (defun COMPUTE-DESCRIPTOR (function argument &rest arguments)
  