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:                               (error (err)
                                  (v:warn :rss "<~a> Error in check-loop: ~a" feed err)))))
                 (recheck (err) 
                   (declare (ignore err))
                   (v:debug :rss "[Check-Loop] Skipping whatever it is I'm doing and rechecking immediately."))))
         (setf startup NIL))
    (v:debug :rss "Leaving check-loop."))
  
  
negative.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)))
  
  (define-command (rss recheck) () (:authorization T :documentation "Forces an immediate recheck.")
    (bt:interrupt-thread (module-thread module (thread-id module))
                         #'(lambda () (signal 'recheck :event event))))
  