anchor.diff:      (when group (gethash commandname group))))
   
   (defmethod get-module ((module-name string))
  -  (get-module (find-symbol (string-upcase module-name) :KEYWORD)))
  +  (let ((symbol (find-symbol (string-upcase module-name) :KEYWORD)))
  +    (when symbol
  +      (get-module symbol))))
   
   (defmethod get-module ((module-name symbol))
     (unless (keywordp module-name)
       (get-module (symbol-name module-name)))
     (gethash module-name *bot-modules*))
  +
  +(defmethod name ((module module))
  +  (find-symbol (format NIL "~a" (class-name (class-of module))) :KEYWORD))
   
   (defun package-symbol (package)
     "Returns the symbol of a package."
  
positive.code: (defmethod dispatch ((module module) (event event) &key)
    (let ((handler (gethash (string-downcase (class-name (class-of event))) (handlers module))))
      (when handler
        (with-module-thread module
          (funcall handler module event))
        NIL)))
  
negative.code: (defmethod dispatch ((module module) (event command-event) &key)
    (let ((handler (gethash (command event) (commands module))))
      (when handler
        (v:trace (name module) "Dispatching: ~a" event)
        (with-module-thread module
          (handler-case
              (funcall (cmd-fun handler) module event)
  