anchor.diff:  		  (setf (cdr accel-tail) (cddr accel-tail))
   		  (setf (cdr items-tail) (cddr items-tail))))
   	    (when errorp
  -	      (error 'command-not-present))))))
  +	      (error 'command-not-present :command-table-name
  +                     (command-table-designator-as-name table)))))))
     nil)
   
   (defun map-over-command-table-keystrokes (function command-table)
  
positive.code:   (cond ((eq errorp :create)
  	 (command-name-from-symbol command-name))
  	(errorp
  	 (error 'command-not-accessible))
  	(t nil)))
  
  (defun find-menu-item (menu-name command-table &key (errorp t))
  
negative.code:   (unless inherit-from
      (setq inherit-from '(global-command-table)))
    (if (and name errorp (gethash name *command-tables*))
        (error 'command-table-already-exists :command-table-name name)
        (let ((result (make-instance 'standard-command-table :name name
  	                 :inherit-from inherit-from
  	                 :menu (menu-items-from-list menu))))
  