anchor.diff:  			      [Value];
   			  _ ->
   			      %% Accumulated comma space Value
  -			      concat_binary([Acc, $\,, 32, Value])
  +			      list_to_binary([Acc, $\,, 32, Value])
   		      end
   	      end,
       BinValues = lists:foldl(OneLine, [], BinValueList),
  -    concat_binary([BinName, $:, 32, BinValues, 13, 10]);
  +    list_to_binary([BinName, $:, 32, BinValues, 13, 10]);
   print_one_header_binary2(false, BinName, [First | Rest]) ->
       %% Return one "Key: Value" for every element in BinValueList
  -    This = concat_binary([BinName, $:, 32, First, 13, 10]),	%% Name: First\r\n
  +    This = list_to_binary([BinName, $:, 32, First, 13, 10]),	%% Name: First\r\n
       [This | print_one_header_binary2(false, BinName, Rest)];
   print_one_header_binary2(false, _BinName, []) ->
       [].
  
positive.code:     AckInvite1Header_1 = keylist:set("To", ["<sip:bob@example.org>;tag=t-123"], InviteHeader1),
      AckInvite1Header1  = keylist:set("CSeq", ["2 ACK"], AckInvite1Header_1),
      AckInvite1 = #request{method="ACK", uri=sipurl:parse("sip:alice@example.org"),
  			  header=AckInvite1Header1, body=""},
  
      AckInvite1Id = get_server_transaction_id(AckInvite1),
  
  
negative.code: 					    {"CSeq",	["2 INVITE"]}
  					   ]),
      Invite2543_1 = #request{method="INVITE", uri=sipurl:parse("sip:alice@example.org"),
  			    header=Invite2543_1Header, body = <<>>},
      Invite2543_1Id = get_server_transaction_id(Invite2543_1),
  
      io:format("test: get_server_transaction_id/1 - 4.2~n"),
  