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: %% Returns : Result of make_3261_token()
  %%--------------------------------------------------------------------
  make_base64_md5_token(In) ->
      Out = string:strip(httpd_util:encode_base64(binary_to_list(erlang:md5(In))), right, $=),
      make_3261_token(Out).
  
  %% RFC 3261 chapter 25 BNF notation of token :
  
negative.code: 		"z9hG4bK" ++ RestOfBranch ->
  		    %% The previous hop has put a RFC3261 branch in it's Via. Use that,
  		    %% togehter with our nodename as branch.
  		    In = lists:concat([node(), "-rbranch-", RestOfBranch]),
  		    {ok, "z9hG4bK-yxa-" ++ make_base64_md5_token(In)};
  		_ ->
  		    %% No branch, or non-RFC3261 branch
  