anchor.diff:  
   (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 () ()
  +(define-module rss ()
  +  ((%thread-id :initform NIL :accessor thread-id))
     (:documentation "Update about new RSS feed items."))
   
   (defclass feed ()
  
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:             (make-hash-table :test 'equalp)))))
  
  (defmethod start ((rss rss))
    (setf (thread-id rss)
          (with-module-thread (rss)
            (check-loop rss))))
  
  (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
  