anchor.diff:      (let ((command-line-name (gethash command-name (slot-value table 'commands))))
         (when (stringp command-line-name)
   	(return-from command-line-name-for-command command-line-name))))
  -  (cond ((eq errorp :create) (generate-name command-name))
  +  (cond ((eq errorp :create) (command-name-from-symbol command-name))
   	(errorp (error 'command-not-accessible))
   	(t nil)))
   
  
positive.code:   (let* ((func (if (consp name-and-options) (first name-and-options) name-and-options))
           (options (if (consp name-and-options) (rest name-and-options) nil))
  	 (command-table (getf options :command-table nil))
  	 (name (getf options :name (generate-name func)))
  	 (menu (getf options :menu nil))
  	 (keystroke (getf options :keystroke nil))
  	 )
  
negative.code: 			     :menu ',menu
  			     :errorp nil)))))
  
  (defun command-name-from-symbol (symbol)
    (let ((name (symbol-name symbol)))
      (string-capitalize
       (substitute
  