anchor.diff:              (make-hash-table :test 'equalp)))))
   
   (defmethod start ((rss rss))
  -  (with-module-thread (rss)
  -    (check-loop rss)))
  +  (setf (thread-id rss)
  +        (with-module-thread (rss)
  +          (check-loop rss))))
   
  -(define-condition recheck (error) ())
  +(define-condition recheck (error)
  +  ((%event :initarg :event :initform NIL :reader event)))
   (defmethod check-loop ((rss rss))
     (v:debug :rss "Starting check-loop.")
     (loop with startup = T
  
positive.code:       (let ((item (first (get-items (uc:config-tree :feeds name) :limit 1))))
          (respond event "~a: ~a ~a~@[ ~a~]" (nick event) (title item) (link item) (publish-date item)))
        (respond event "No feed called \"~a\" could be found!" name)))
  
negative.code: 
  (in-package :org.tymoonnext.colleen)
  (defpackage org.tymoonnext.colleen.mod.rss
    (:nicknames :co-rss)
    (:use :cl :colleen :events :lquery))
  (in-package :org.tymoonnext.colleen.mod.rss)
  
  (defparameter *save-file* (merge-pathnames "rss-feed-save.json" (merge-pathnames "config/" (asdf:system-source-directory :colleen))))
  
  (define-module rss ()
    ((%thread-id :initform NIL :accessor thread-id))
    (:documentation "Update about new RSS feed items."))
  
  (defclass feed ()
  