anchor.diff:  		 (beep))))))))
   
   (defmethod read-frame-command :around ((frame application-frame)
  -				       &key (stream *standard-input*))  
  +				       &key (stream *standard-input*))
     (with-input-context ('menu-item)
         (object)
         (call-next-method)
  
positive.code: 	       (redisplay-frame-panes frame :force-p first-time)
  	       (setq first-time nil)
  	       (if query-io
                   ;; We don't need to turn the cursor on here, as Goatee has its own
                   ;; cursor which will appear. In fact, leaving it on causes much
                   ;; bit flipping and slows command output somewhat. So, leave it
                   ;; off by default, and hope this doesn't violate the spec.  
  		   (progn
  		     (setf (cursor-visibility (stream-text-cursor *query-io*))
  			   nil)
  		     (when (and prompt interactorp)
  
negative.code:   ;; If we do things as the spec says, command accelerators will
    ;; appear to not work, confusing new users.
    #+NIL (read-command (frame-command-table frame) :use-keystrokes nil :stream stream)
    (if stream
        (read-command (frame-command-table frame) :use-keystrokes t :stream stream)
        (simple-event-loop frame)))
  
  (define-event-class execute-command-event (window-manager-event)
    ((sheet :initarg :sheet :reader event-sheet)
  