anchor.diff:  			 (execute-frame-command frame command))
   		       (when interactorp
   			 (fresh-line *query-io*))))
  -		   (simple-event-loop)))
  +                   ;; Frames without an interactor:
  +                   (let ((command (read-frame-command frame :stream nil)))
  +                     (when command (execute-frame-command frame command)))))
   	   (abort ()
   	     :report "Return to application command loop"
   	     (if interactorp
  
positive.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)
    (read-command (frame-command-table frame) :use-keystrokes t :stream stream))
  
  (define-event-class execute-command-event (window-manager-event)
    ((sheet :initarg :sheet :reader event-sheet)
  
negative.code: 		 (beep))))))))
  
  (defmethod read-frame-command :around ((frame application-frame)
  				       &key (stream *standard-input*))
    (with-input-context ('menu-item)
        (object)
        (call-next-method)
  