anchor.diff:  
   (defmethod stream-unread-gesture ((stream standard-extended-input-stream)
   				  gesture)
  -  (with-encapsulating-stream (estream stream)
  -    (repush-gesture gesture (stream-input-buffer estream))))
  +  (declare (ignore gesture))
  +  (with-encapsulating-stream (estream stream)
  +    (let ((gesture (last-gesture stream)))
  +      (when gesture
  +	(setf (last-gesture stream) nil)
  +	(repush-gesture gesture (stream-input-buffer estream))))))
   
   ;;; Standard stream methods on standard-extended-input-stream.  Ignore any
   ;;; pointer gestures in the input buffer.
  
positive.code: 			thereis (event-matches-gesture-name-p gesture
  							      gesture-name))
  		  (signal 'accelerator-gesture :event gesture))
  		 (t (return-from stream-read-gesture gesture))))
  	 (go wait-for-char)))))
  
  
  
negative.code: 	 ;; An event should  be in the stream buffer now.
  	 (when (handle-non-stream-event buffer)
  	   (go wait-for-char))
  	 (let* ((raw-gesture (pop-gesture buffer peek-p))
  		(gesture (convert-to-gesture raw-gesture)))
  	   ;; Sometimes key press events get generated with a key code for
  	   ;; which there is no keysym.  This seems to happen on my machine
  	   ;; when keys are hit rapidly in succession.  I'm not sure if this is
  