anchor.diff:  			     :command-table lisp-commands
                                :menu t
   			     :provide-output-destination-keyword t)
  -    ((string 'clim:string :prompt "string")
  +    ((string 'clim:string :prompt "String")
        &key
  -     (package '(or package-name package) :prompt "in package" :default nil)
  -     (domain '(member symbols classes functions variables command-tables) :prompt "domain" :default 'symbols))
  +     (package '(or package-name package) :prompt "Package" :default nil)
  +     (domain '(member symbols classes functions variables command-tables) :prompt "Domain" :default 'symbols))
     (let ((real-package (when package
                           (if (typep package 'package)
                               package
  
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)
  