anchor.diff:            (respond event "~a does not have any running threads." module-name)))))
   
   (define-command (module kill) (module-name) (:documentation "Kill all the module threads.")
  -  (with-module (module-name instance)
  +  (with-module (instance module-name)
       (let ((threads (alexandria:hash-table-keys (colleen:threads instance))))
         (if threads
             (loop for uid in threads
  
positive.code:            (format-timestring NIL (now) :format 
                                '((:year 4) #\. :month #\. :day #\, #\Space :long-weekday #\Space (:hour 2) #\: (:min 2) #\: (:sec 2) #\Space #\( :timezone #\/ #\G #\M #\T :gmt-offset #\)))))
  
  (define-command help (&optional command sub-command) (:documentation "Display help on a command.")
    (if command
        (loop for module being the hash-values of *bot-modules*
           do (when (active module)
                (let ((method (gethash (string-downcase command) (colleen:commands module))))
                  (when method
                    (if sub-command
                        (let ((group-command (colleen::get-group-command module (string-downcase command) sub-command)))
                          (if group-command
                              (progn
                                (respond event "~a" (colleen:docu group-command))
                                (respond event "USAGE: ~a ~a ~{~a~^ ~}" command (name group-command) (cmd-args group-command)))
                              (respond event "No such sub-command found: ~a ~a" command sub-command)))
                        (progn
                          (respond event "~a" (docu method))
                          (respond event "USAGE: ~a ~{~a~^ ~}" (name method) (cmd-args method))
                          (return NIL)))))))
        (loop with commands = () 
              for module being the hash-values of *bot-modules*
              if (active module)
                do (appendf commands (alexandria:hash-table-keys (colleen:commands module)))
              finally (respond event "Available commands: ~{~a~^, ~}" commands))))
  
  ;; MODULE COMMANDS
  (define-group module :documentation "Manage bot modules.")
  
  (define-command (module start) (module-name) (:authorization T :documentation "Start up a module.")
    (handler-case
        (progn (start-module (find-symbol (string-upcase module-name) "KEYWORD"))
               (respond event "Module started."))
      (error (err)
        (respond event "Error: ~a" err))))
  
  (define-command (module stop) (module-name) (:authorization T :documentation "Stop a module.")
    (handler-case
        (progn (stop-module (find-symbol (string-upcase module-name) "KEYWORD"))
               (respond event "Module stopped."))
      (error (err)
        (respond event "Error: ~a" err))))
  
  (define-command (module restart) (module-name) (:authorization T :documentation "Stop&Start a module.")
    (handler-case
        (progn (stop-module (find-symbol (string-upcase module-name) "KEYWORD"))
               (start-module (find-symbol (string-upcase module-name) "KEYWORD"))
               (respond event "Module restarted."))
      (error (err)
        (respond event "Error: ~a" err))))
  
negative.code:           (respond event "~a does not have any running threads." module-name)))))
  
  (define-command (module interrupt) (module-name) (:documentation "Interrupt all the module threads.")
    (with-module (instance module-name)
      (let ((threads (alexandria:hash-table-keys (colleen:threads instance))))
        (if threads
            (loop for uid in threads
  