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: 	       (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: 		 (beep))))))))
  
  (defmethod read-frame-command :around ((frame application-frame)
  				       &key (stream *standard-input*))
    (with-input-context ('menu-item)
        (object)
        (call-next-method)
  