anchor.diff:    (mvbind (str socket) (tcp-connect hostname port)
       (unwind-protect
            (progn
  -           (send-tcpros-header str "service" service-name "md5sum" (string-downcase (format-md5 (md5sum (class-name (class-of req))))) 
  +           (send-tcpros-header str "service" service-name "md5sum" (md5sum (class-name (class-of req))) 
                                  "callerid" (caller-id))
              (parse-tcpros-header str)
              (tcpros-write req str)
  
positive.code:   (bind-from-header ((topic "topic") (md5 "md5sum")) header
      (let ((pub (gethash topic *publications*)))
        (tcpros-header-assert pub "unknown-topic")
        (let ((my-md5 (string-downcase (format-md5 (md5sum topic)))))
          (tcpros-header-assert (or (equal md5 "*") (equal md5 my-md5)) "md5sums do not match: ~a vs ~a" md5 my-md5)
          
          ;; Now we must send back the response
  
negative.code:       (error 'malformed-tcpros-header :msg (format nil "Could not find key ~a in ~a" key l)))
      (cdr pair)))
  
  