anchor.diff:  
   (defmethod respond-to-source-request ((bot microblog-bot) mention)
     "Respond to the source request."
  -  (let ((result (ignore-errors 
  -		  (cl-twit:update (response-for-source-request bot mention)))))
  +  (let ((result (handler-case
  +		  (cl-twit:update (response-for-source-request bot mention))
  +		  (error (err) 
  +		    (report-error "~a - ~a~%" bot err)
  +		    nil))))
       (when result
         (update-id (most-recent-mention-id bot) result))))
   
  
positive.code: 
  (defmethod respond-to-mention ((bot microblog-bot) mention)
    "Respond to the mention object in some way."
    (let ((result (ignore-errors 
  		  (cl-twit:update (response-for-mention bot mention)))))
      (when result
        (update-id (most-recent-mention-id bot) result))))
  
  
negative.code: 
  (defun set-microblog-service (server-url from-source)
    "Set the server and the 'from..' string displayed on messages to that server."
    (debug-msg "Setting server to ~a (~a)" server-url from-source)
    (setf twit::*source* from-source)
    (setf twit::*base-url* server-url))
  
  (defmacro update-id (place item)
    "Change the id at place for item's id if higher"
    (let ((new-id (gensym)))
      `(let ((,new-id (cl-twit::id ,item))) 
         (when (> ,new-id ,place)
  	 (setf ,place ,new-id)))))
  
  (defclass microblog-user ()
    ((user-nickname :reader user-nickname
  