anchor.diff:      (check-and-add hash (cl-twit::id item) capacity)))
   
   (defun check-and-update-handled-messages (bot)
  -  (with-microblog-user bot
  +  (microblog-bot:with-microblog-user bot
       ;; May skip in tight timing situations, but should catch gross errors
       (check-and-add-list *replies-handled* (microblog-bot::new-replies bot)
   			"replies")
  
positive.code: 	 (format t "multiple posts of '~a'~%" message))
  	(t (format t "~a~%" (cl-twit:http-body err)))))
      (error (err)
        (format t "~a~%" err))))
  
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
negative.code: 
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;; Post creation testing
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  (defmethod microblog-bot:post :around (message &key (in-reply-to-status-id nil))
    "Check that the message really is posted and not repeated too fast, etc."
    (assert message)
    (assert (<= (length message) 140))
     (handler-case
        (let* ((result (call-next-method))
  	     (result-text (cl-twit:status-text result)))
  	(assert result)
  	(assert result-text)
  	(assert (string= result-text message))
  	result)
      (cl-twit:http-error (err)
        (format t "POST ERROR: ~a - " (cl-twit:http-status-code err))
        (cond
  