anchor.diff:      sort_headers2(T, R#header_sort{rest = NewRest});
   sort_headers2([], R) ->
       [_ | Headers] = tuple_to_list(R),
  -    Headers.
  +    list_to_binary(Headers).
   
   %% Returns : list() of {Key, Binary}
  -%%           Key = atom() or string(), keylist normalized header name
  +%%           Key = atom() | string(), keylist normalized header name
   %%           Binary = binary(), this header as binary (<<"Supported: something\r\n">> for example
   print_one_header_binary(Key, Name, []) ->
       %% Header without value.
  
positive.code: 	    Key == 'rtp-txstat' ->	true;	%% Cisco 79xx
  	    true -> false
  	end,
      BinName = list_to_binary(Name),
      This = print_one_header_binary2(OneLine, BinName, ValueList, []),
      {Key, This}.
  
  %% print_one_header_binary2 - convert all the values to binarys
  print_one_header_binary2(OneLine, BinName, [H | T], Res) ->
      print_one_header_binary2(OneLine, BinName, T, [list_to_binary(H) | Res]);
  print_one_header_binary2(OneLine, BinName, [], Res) ->
      print_one_header_binary3(OneLine, BinName, lists:reverse(Res)).
  
  %% print_one_header_binary3 - create the binary representation of this header
  %% and all it's values
  print_one_header_binary3(true, BinName, BinValueList) ->
      %% return as one line
      OneLine = fun(Value, Acc) ->
  		      case Acc of
  			  [] ->
  			      %% No prior elements - return only Value
  			      [Value];
  			  _ ->
  			      %% Accumulated comma space Value
  			      list_to_binary([Acc, $\,, 32, Value])
  		      end
  	      end,
      BinValues = lists:foldl(OneLine, [], BinValueList),
      list_to_binary([BinName, $:, 32, BinValues, 13, 10]);
  
  print_one_header_binary3(false, BinName, [First | Rest]) ->
      %% Return one "Key: Value" for every element in BinValueList
      This = list_to_binary([BinName, $:, 32, First, 13, 10]),	%% Name: First\r\n
      [This | print_one_header_binary3(false, BinName, Rest)];
  print_one_header_binary3(false, _BinName, []) ->
      [].
  
  %%--------------------------------------------------------------------
  %% @spec    ([String]) ->
  
negative.code: build_header_unsafe_binary(Header) ->
      %% process each line in Header
      Lines = keylist:map(fun print_one_header_binary/3, Header),
      sort_headers(Lines).
  
  %%--------------------------------------------------------------------
  %% @spec    (In) -> binary()
  