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 ((menu-item-name
  			  (cond ((stringp menu) menu)
  				((and (eq menu t) (stringp name)) name)
  				((eq menu t) (generate-name command-name))
  				((consp menu) (car menu)))))
  		     (apply #'add-menu-item-to-command-table
  			    command-table
  
negative.code: 			     :menu ',menu
  			     :errorp nil)))))
  
  (defun command-name-from-symbol (symbol)
    (let ((name (symbol-name symbol)))
      (string-capitalize
       (substitute
  