anchor.diff:  					      :window window
   					      :x x
   					      :y y
  -					      :event event)))
  +					      :event event)
  +				     (list trans)))
   			      (find-presentation-translators
   			       (presentation-type from-presentation)
   			       context-type
  
positive.code: 			      :filled nil :line-dashes #(4 4))))
  	  (:unhighlight
  	   (with-double-buffering
  	       ((stream hilite-x1 hilite-y1 hilite-x2 hilite-y2)
  		(buffer-rectangle))
  	     (stream-replay stream buffer-rectangle))))))))
  
  
negative.code:       ;;
        ;; XXX Assumes x y from :button-release are the same as for the preceding
        ;; button-motion; is that correct?
        (when feedback-activated
  	(do-feedback (last-window) (last-x) (last-y) :unhighlight))
        (when last-presentation
  	(do-hilite last-presentation (last-window) :unhighlight))
        (if destination-presentation
  	  (let ((final-translator (find-dest-translator destination-presentation
  							(last-window)
  