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: 
  (defclass standard-extended-input-stream (extended-input-stream)
    ((pointer)
     (cursor :initarg :text-cursor)
     (last-gesture :accessor last-gesture :initform nil
      :documentation "Holds the last gesture returned by
    stream-read-gesture (not peek-p), untransformed, so it can easily be
    unread.")))
  
  (defvar *input-wait-test* nil)
  (defvar *input-wait-handler* nil)
  