anchor.diff:  					    {"CSeq",	["2 INVITE"]}
   					   ]),
       Invite2543_1 = #request{method="INVITE", uri=sipurl:parse("sip:alice@example.org"),
  -			    header=Invite2543_1Header, body=""},
  +			    header=Invite2543_1Header, body = <<>>},
       Invite2543_1Id = get_server_transaction_id(Invite2543_1),
   
       io:format("test: get_server_transaction_id/1 - 4.2~n"),
  
positive.code:     end.
  
  %%--------------------------------------------------------------------
  %% Function: dialogueid(Header)
  %%           Header = keylist record()
  %% Descrip.: get the contents of several sip headers in Header
  %% Returns : {CallID, FromTag, ToTag}
  %%           the contents of "Call-ID", "From" and "To"
  %%--------------------------------------------------------------------
  dialogueid(Header) when is_record(Header, keylist) ->
      get_dialogid(Header).
  
  get_dialogid(Header) ->
      CallID = sipheader:callid(Header),
      FromTag = sipheader:get_tag(keylist:fetch('from', Header)),
      ToTag = sipheader:get_tag(keylist:fetch('to', Header)),
  
negative.code: 			      [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_binary2(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_binary2(false, BinName, Rest)];
  print_one_header_binary2(false, _BinName, []) ->
      [].
  