anchor.diff:  %%           to prioritize speed here, so we don't spend extra cycles
   %%           making the resulting data uniformed. We might return a
   %%           list of lists of binaries, or just binaries.
  -%% Returns : I/O list() | throw()
  +%% Returns : binary() | throw()
   %%--------------------------------------------------------------------
   build_header_binary(Header) when is_record(Header, keylist) ->
       case catch build_header_unsafe_binary(Header) of
  
positive.code: 					   {"Date", ["Thu, 10 Feb 2005 14:41:04 GMT"]}
  					  ]),
  
      [[<<"Via: via1\r\n">>,
        <<"Via: via2\r\n">>],
       [<<"Call-Id: call-id-test\r\n">>],
       <<"Accept: accept1, accept2\r\n">>,
       [<<"Date: Thu, 10 Feb 2005 14:41:04 GMT\r\n">>]] = build_header_binary(BuildHeaderBin_H1),
  
      autotest:mark(?LINE, "build_header_binary/1 - 4"),
      %% test Reason-header without value
      [<<"Reason: ", 13, 10>>] = build_header_binary( keylist:from_list([{"Reason", []}]) ),
  
  
      %% test get_tag([String])
      %%--------------------------------------------------------------------
  
negative.code: %% Records
  %%--------------------------------------------------------------------
  
  %% Used when building binary messages from headers - the headers will be
  %% outputed in the order of the fields in this record
  -record(header_sort, {via		= [],
  		      from		= [],
  		      to		= [],
  		      'call-id'		= [],
  		      cseq		= [],
  		      route		= [],
  		      'record-route'	= [],
  		      rest		= []
  		     }).
  
  %%--------------------------------------------------------------------
  %% Macros
  %%--------------------------------------------------------------------
  