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:       ;;
        ;; XXX Assumes x y from :button-release are the same as for the preceding
        ;; button-motion; is that correct?
        (do-feedback (last-window) (last-x) (last-y)
  		   :unhighlight feedback-activated)
        (do-hilite last-presentation (last-window) :unhighlight)
        (if destination-presentation
  	  (let ((final-translator (find-dest-translator destination-presentation
  							(last-window)
  
negative.code: 	  (:presentation (&key presentation window event x y)
  	    (let ((dest-translator (find-dest-translator presentation window
  							 x y)))
  	      (when feedback-activated
  		(do-feedback (last-window) (last-x) (last-y) :unhighlight))
  	      (setq feedback-activated t
  		    last-event event)
  	      (when last-presentation
  		(do-hilite last-presentation (last-window) :unhighlight))
  	      (setq last-presentation presentation
  		    feedback-fn (feedback dest-translator)
  		    hilite-fn (highlighting dest-translator))
  	      (do-hilite presentation window :highlight)
  	      (do-feedback window x y :highlight)
  	      (document-drag-n-drop dest-translator presentation
  				    context-type frame event window
  				    x y)))
  	  (:pointer-motion (&key event window x y)
  	    (when feedback-activated
  	      (do-feedback (last-window) (last-x) (last-y) :unhighlight))
  	    (setq feedback-activated t
  		  last-event event)
  	    (when last-presentation
  	      (do-hilite last-presentation (last-window) :unhighlight))
  	    (setq last-presentation nil)
  	    (do-feedback window x y :highlight)
  	    (document-drag-n-drop translator nil
  				  context-type frame event window
  				  x y))
  