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