anchor.diff:  	       (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.  
  +                   ;; For frames with an interactor:
   		   (progn
  +                     ;; Hide cursor, so we don't need to toggle it during
  +                     ;; command output.
   		     (setf (cursor-visibility (stream-text-cursor *query-io*))
   			   nil)
   		     (when (and prompt interactorp)
  
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
  