anchor.diff:  ;; FIXME: Disabled input, as it usually seems to hang.
   (define-command (com-run :name "Run" :command-table application-commands :menu t
   			 :provide-output-destination-keyword t)
  -  ((program 'string :prompt "command")
  -   (args '(sequence string) :default nil :prompt "args"))
  +  ((program 'string :prompt "Command")
  +   (args '(sequence string) :default nil :prompt "Arguments"))
     (run-program program args :wait t :input nil))
   
   ;; I could replace this command with a keyword to COM-RUN..
  
positive.code:                                     :menu t
  				    :command-table application-commands
  				    :provide-output-destination-keyword t)
    ((program 'string :prompt "command")
     (args '(sequence string) :default nil :prompt "args"))
    (run-program program args :wait nil :output nil :input nil))
  
  (define-command (com-reload-mime-database :name "Reload Mime Database"
  
negative.code:         **  *
          *   (first values)))
  
  ;;; The background evaluation feature is neat, but there are thread
  ;;; safety issues doing output to streams, special variables have
  ;;; unexpected values, and input doesn't work right due to racing to
  ;;; read from the event queue. Sadly, I am forced to disable it by
  ;;; default.
  
  (defparameter *use-background-eval* nil
    "Perform evaluation in a background thread, which can be interrupted.")
  
  (define-command (com-eval :menu t :command-table lisp-commands)
  