anchor.diff:  (defmethod stop ((module module)))
   
   (defmethod add-group ((module module) group)
  -  (unless (gethash group (groups module))
  -    (setf (gethash group (groups module)) (make-hash-table :test 'equal))))
  +  (let ((group (string-downcase group)))
  +    (unless (gethash group (groups module))
  +      (setf (gethash group (groups module)) (make-hash-table :test 'equal)))))
   
   (defmethod add-group-command ((module module) group command args method &optional documentation)
  -  (let ((command (string-downcase command)))
  +  (let ((command (string-downcase command))
  +        (group (string-downcase group)))
       (assert (not (null (gethash group (groups module)))))
       (setf (gethash command (gethash group (groups module)))
             (make-instance 'command :name command :arguments args :function method :documentation documentation))))
   
   (defmethod add-command ((module module) command args method &optional documentation)
  -  (setf (gethash (string-downcase command) (commands module))
  -        (make-instance 'command :name command :arguments args :function method :documentation documentation)))
  +  (let ((command (string-downcase command)))
  +    (setf (gethash command (commands module))
  +          (make-instance 'command :name command :arguments args :function method :documentation documentation))))
   
   (defmethod add-handler ((module module) eventtype method)
     (setf (gethash (string-downcase eventtype) (handlers module)) method))
  
positive.code:          ((%active :initform NIL :reader active :allocation :class)
            (%handlers :initform (make-hash-table :test 'equal) :reader handlers :allocation :class)
            (%commands :initform (make-hash-table :test 'equal) :reader commands :allocation :class)
            (%groups :initform (make-hash-table) :reader groups :allocation :class)
            ,@direct-slots)
           ,@options)
         (let ((,instancesym (make-instance ',name))
  
negative.code:   ((%active :initform NIL :accessor active :allocation :class)
     (%handlers :initform (make-hash-table :test 'equal) :reader handlers :allocation :class)
     (%commands :initform (make-hash-table :test 'equal) :reader commands :allocation :class)
     (%groups :initform (make-hash-table :test 'equal) :reader groups :allocation :class)
     (%threads :initform (make-hash-table) :accessor threads))
    (:documentation "Base module class."))
  
  