anchor.diff:  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]).
  +    list_to_binary([BinLine1, 13, 10, BinHeaders, 13, 10, BinBody]).
   
   %%--------------------------------------------------------------------
   %% Function: set_request_body(Request, Body)
  
positive.code: 				       {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])),
      Out = make_base64_md5_token(In),
      logger:log(debug, "Siprequest: Created loop cookie ~p from input :~n~p", [Out, In]),
      Out.
  
  %%--------------------------------------------------------------------
  
negative.code: %% Returns : Result of make_3261_token()
  %%--------------------------------------------------------------------
  make_base64_md5_token(In) ->
      MD5 = binary_to_list(erlang:md5(In)),
      %% remove the trailing == from the result of encode_base64()
      Out = string:strip(httpd_util:encode_base64(MD5), right, $=),
      make_3261_token(Out).
  
  %% RFC 3261 chapter 25 BNF notation of token :
  