anchor.diff:                                     *active-modules*)))
             (when cmd-module
               (let* ((cmd-sym (intern (string-upcase cmd) (find-package "ORCABOT")))
  -                   (denied (access-denied cmd-module message cmd-sym)))
  +                   (denied (access-denied self cmd-module message cmd-sym)))
                 (cond
                   (denied
                    (funcall denied message)
  
positive.code: 
  (defmethod examine-message ((self base-module)
                             (message irc:irc-nick-message))
    (when (and (string= (source message) (nickname-of self))
               (string/= (nickname (user (connection message)))
                         (nickname-of self)))
  
negative.code:      for rule in *access-control*
       as consequence = (first rule)
       as patterns = (rest rule)
       do (when (and (or (not (member :user patterns))
                        (string= (getf patterns :user) nick))
                    (or (not (member :auth patterns))
                        (and (getf patterns :auth)
                             (member nick (authnicks-of base-module) :test 'string=)))
                    (or (not (member :channels patterns))
                        (member (first (arguments message))
                                (getf patterns :channels)
  