anchor.diff:  				       {myhostname(), sipserver:get_listenport(Proto)}
   			       end,
       TopViaSentBy = sipurl:print_hostport(TopViaHost, TopViaPort),
  -    In = lists:flatten(lists:concat([OrigURIstr, "-ftag-", FromTag, "-totag-", ToTag,
  -				     "-callid-", CallId, "-cseqnum-", CSeqNum,
  -				     "-preq-", ProxyReq, "-pauth-", ProxyAuth,
  -				     "-route-", Route, "-topvia-", TopViaSentBy])),
  +    In = lists:concat([OrigURIstr, "-ftag-", FromTag, "-totag-", ToTag,
  +		       "-callid-", CallId, "-cseqnum-", CSeqNum,
  +		       "-preq-", ProxyReq, "-pauth-", ProxyAuth,
  +		       "-route-", Route, "-topvia-", TopViaSentBy]),
       Out = make_base64_md5_token(In),
  -    logger:log(debug, "Siprequest: Created loop cookie ~p from input :~n~p", [Out, In]),
  +    logger:log(debug, "Siprequest: Created loop cookie ~p from input :~n'~s'", [Out, In]),
       Out.
   
   %%--------------------------------------------------------------------
  
positive.code: binary_make_message(BinLine1, Header, BinBody) when is_binary(BinLine1), is_record(Header, keylist),
  						    is_binary(BinBody) ->
      BinHeaders = sipheader:build_header_binary(Header),
      concat_binary([BinLine1, 13, 10, BinHeaders, 13, 10, BinBody]).
  
  %%--------------------------------------------------------------------
  %% Function: set_request_body(Request, Body)
  
negative.code: 		    ToTag = sipheader:get_tag(keylist:fetch('to', Header)),
  		    CallId = keylist:fetch('call-id', Header),
  		    {CSeqNum, _} = sipheader:cseq(keylist:fetch('cseq', Header)),
  		    In = lists:concat([node(), "-uri-", OrigURIstr, "-ftag-", FromTag, "-totag-", ToTag,
  				       "-callid-", CallId, "-cseqnum-", CSeqNum]),
  		    {ok, "z9hG4bK-yxa-" ++ make_base64_md5_token(In)}
  	    end;
  	_ ->
  