anchor.diff:  
   ;;; When a message is applicable for the bot, responds to it.
   ;;; CALLED BY: call-listeners
  -;;; CALLS: scan-string-for-direct-message, respond-to-message
  +;;; CALLS: respond-to-message
   ;;;  - Adlai
   (deflistener command-listener
  -  (when (scan-for-direct-message *bot* *message*)
  -    (respond-to-message *bot* *sender* *channel* *message*)))
  +  (let ((index (nth-value 1 (scan (detection-regex *bot*) *message*))))
  +    (when index
  +      (respond-to-message *bot* *sender* *channel*
  +                          (subseq *message* index)))))
   
   (defmessage respond-to-message (bot sender channel message))
   (defmessage get-responses (bot cmd args sender channel))
  
positive.code: ;;; Removes the direct message indicator from a message,
  ;;;   and then splits it into a command and arguments.
  ;;; CALLED BY: command-listener
  ;;; CALLS: scan-string-for-direct-message, process-command-string
  ;;;  - Adlai
  (defreply respond-to-message ((bot (proto 'sykobot)) sender channel message)
    (let* ((string (scan-for-direct-message bot message))
           (results (process-command-string bot string sender channel)))
      (loop for result in results
         do (send-reply bot sender channel (format nil "~A" result)))))
  
  
negative.code:     (funcall fn bot args sender channel)))
  
  ;;; (defparameter *cmd-prefix* "@")
  
  ;;; Puts message responses on the response stack
  (defun cmd-msg (message &rest format-args)
  