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: %%--------------------------------------------------------------------
  test() ->
  
      %% comma
      %%--------------------------------------------------------------------
      %% test empty string
      io:format("test: comma/1 - 1~n"),
  
negative.code: 
      %% test commas inside <>!
  
  
      %% test via/1
      %%--------------------------------------------------------------------
      io:format("test: via/1 - 1~n"),
      [#via{proto="SIP/2.0/TLS", host="192.0.2.123", port=none, param=[]}] =
  	via(["SIP/2.0/TLS 192.0.2.123"]),
  