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