anchor.diff:  
       io:format("test: parse/1 request - 9~n"),
       %% verify that we don't mess with line breaks in body
  -    {request, "INVITE", _, _,  Body9} = parse(Message9, none),
  +    BinBody9 = list_to_binary(Body9),
  +    {request, "INVITE", _, _, BinBody9} = parse(Message9, none),
   
       Message10 =
   	"INVITE sip:a@example.org SIP/2.0\n"
  
positive.code: 
      %% basic parse
      io:format("test: parse/1 request - 1.1~n"),
      {request, "INVITE", URL1, Header1, "body"} = parse(Message1, none),
  
      %% verify single Via
      io:format("test: parse/1 request - 1.2~n"),
  
negative.code: %%--------------------------------------------------------------------
  %% Records
  %%--------------------------------------------------------------------
  -record(ptr, {
  	  offset,	%% integer(), start offset of element
  	  length	%% integer(), length of element
  	 }).
  -record(header, {
  	  key,		%% ptr record() with data about header key
  	  valueptrs,	%% list() of ptr record(), value element(s)
  	  comma		%% true | false, comma present in value(s)?
  	 }).
  
  %%--------------------------------------------------------------------
  %% Macros
  %%--------------------------------------------------------------------
  -define(CR, 16#0D).
  -define(LF, 16#0A).
  -define(SP, 16#20).
  -define(HTAB, 16#09).
  
  %%====================================================================
  %% External functions
  