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: 			 (execute-frame-command frame command))
  		       (when interactorp
  			 (fresh-line *query-io*))))
  		   (simple-event-loop)))
  	   (abort ()
  	     :report "Return to application command loop"
  	     (if 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)
  