anchor.diff:  ;;; CALLS: scan-string-for-direct-message, respond-to-message
   ;;;  - Adlai
   (deflistener command-listener
  -  (when (scan-for-direct-message *bot* *channel* *message*)
  +  (when (scan-for-direct-message *bot* *message*)
       (respond-to-message *bot* *sender* *channel* *message*)))
   
   (defmessage respond-to-message (bot sender channel message))
  
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: ;;; Checks if the message is directed at the bot
  ;;; If so, strips out the header; if not, returns NIL.
  ;;; CALLED BY: command-listener, respond-to-message
  ;;; Uses (detection-regex bot) to scan out the command.
  ;;; Currently only works for channel messages, no command prefix.
  ;;;  - Adlai
  (defmessage scan-for-direct-message (bot message))
  (defreply scan-for-direct-message ((bot (proto 'sykobot)) message)
    (subseq message
            (nth-value 1 (scan (detection-regex bot) message))))
  
  ;;; Puts message responses on the response stack
  (defun cmd-msg (message &rest format-args)
  