anchor.diff:                                 input-context)
     (frame-update-pointer-documentation frame input-context stream event))
   
  -(defun simple-event-loop ()
  +(defun simple-event-loop (&optional (frame *application-frame*))
     "An simple event loop for applications that want all events to be handled by
    handle-event methods"
  -  (let ((queue (frame-event-queue *application-frame*)))
  +  (let ((queue (frame-event-queue frame)))
       (loop for event = (event-queue-read queue)
          ;; EVENT-QUEUE-READ in single-process mode calls PROCESS-NEXT-EVENT itself.
          do (handle-event (event-sheet event) event))))
  
positive.code: 		 (beep))))))))
  
  (defmethod read-frame-command :around ((frame application-frame)
  				       &key (stream *standard-input*))  
    (with-input-context ('menu-item)
        (object)
        (call-next-method)
  
negative.code: 			 (execute-frame-command frame command))
  		       (when interactorp
  			 (fresh-line *query-io*))))
                     ;; 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
  