anchor.diff:  (defun dispatch-module-event (message)
     (with-simple-restart (continue "Continue from signal in message hook")
       (dolist (module *active-modules*)
  -      (unless (access-denied module message)
  +      (unless (access-denied (first *active-modules*) module message)
           (examine-message module message)))
       (dolist (module *active-modules*)
  -      (unless (access-denied module message)
  +      (unless (access-denied (first *active-modules*) module message)
           (when (handle-message module message)
             (return-from dispatch-module-event t))))
       t))
  
positive.code:                                         :test #'string-equal))
                                *active-modules*)))
      (cond
        ((and cmd-module (not (access-denied cmd-module message)))
         (reply-to message "~a" (command-documentation cmd-module cmd-str)))
        (t
         (reply-to message "Help is available for the following commands: ~{~a~^ ~}"
                   (sort
                    (loop
                       for mod in *active-modules*
                       unless (access-denied mod message)
                       appending (loop for cmd in (commands-of mod)
                                    collect cmd))
                    #'string<))))))
  
negative.code:                                    *active-modules*)))
            (when cmd-module
              (let* ((cmd-sym (intern (string-upcase cmd) (find-package "ORCABOT")))
                     (denied (access-denied self cmd-module message cmd-sym)))
                (cond
                  (denied
                   (funcall denied message)
  