anchor.diff:          (sb-thread:make-thread
            (lambda ()
              (read-message-loop (bot-irc-connection bot)))
  -         :name "IRC-READ-LOOP"))
  +         :name (format nil "IRC-READ-LOOP (~A)" (bot-name bot))))
     (if callback
         (funcall callback)))
   
  
positive.code:     (setf (bot-thread-tg-loop bot)
            (sb-thread:make-thread (lambda ()
                                     (tg-getupdate-loop bot))
                                   :name "TG-LOOP"))
      (sleep 10)
      (create-watcher-f bot)
      bot))
  
negative.code:                           (progn (logging (bot-name bot)
                                            "[FATAL]Give up, Bot halt!")
                                   (bot-halt bot))))))))
           :name (format nil "IRC-WATCHER (~A)" (bot-name bot)))))
  
  (defun load-tg-hooks (hooks-lst)
    (mapcar (lambda (pair)
  