anchor.diff:    ((commands (make-hash-table :test #'equal))
      (detection-regex nil)))
   
  +;;; Detection regex handling
  +(defmessage update-detection-regex (bot))
  +(defreply update-detection-regex ((bot (proto 'sykobot-commands)))
  +  (setf (detection-regex bot)
  +        (create-scanner (format nil "^~A[:,] " (nickname bot))
  +                        :case-insensitive-mode T)))
  +
   (defreply init-sheep :after ((bot (proto 'sykobot-commands)) &key)
  -   (setf (detection-regex bot)
  -	 (create-scanner (format nil "^~A[:,] " (nickname bot))
  -			 :case-insensitive-mode T)))
  -
  +  (update-detection-regex bot))
  +
  +(defreply nick :after ((bot (proto 'sykobot-commands)) new-nick)
  +  (declare (ignore new-nick))
  +  (update-detection-regex bot))
  +
  +;;; Command handling stuff
   (defmessage add-command (bot command function))
   (defmessage remove-command (bot command))
   (defmessage command-function (bot command))
  
positive.code:              (declare (ignore channel args))
               (send-notice bot sender
                            (format nil "I don't know how to ~A." command))
  	     (values))))
  
  (defreply erase-all-commands ((bot (proto 'sykobot-commands)))
    (clrhash (commands bot)))
  
negative.code: ;;; CALLS: scan-string-for-direct-message, respond-to-message
  ;;;  - Adlai
  (deflistener command-listener
    (when (scan-for-direct-message *bot* *message*)
      (respond-to-message *bot* *sender* *channel* *message*)))
  
  (defmessage respond-to-message (bot sender channel message))
  