anchor.diff:  %%           Header     = keylist record()
   %%           BodyOffset = integer()
   %%--------------------------------------------------------------------
  -parse_packet(Packet) ->
  -    parse_packet(Packet, none).
  -
   parse_packet(<<?CR, ?LF>>, Origin) ->
       if
   	is_record(Origin, siporigin) ->
  
positive.code: 
  %%--------------------------------------------------------------------
  %% Function: parse(Packet, Origin)
  %% Descrip.: Parse a packet received from the network into either a
  %%           request or a response record()
  %% Returns : {request, Request}         |
  %%           {response, Response}       |
  %%           keepalive                  |
  %%           throw()
  %%           Request  = request record()
  %%           Response = response record()
  %%           Status   = integer(), SIP status code
  %%           Reason   = string(), SIP reason phrase
  %%--------------------------------------------------------------------
  parse(Packet, Origin) when is_binary(Packet) ->
      case parse_packet(Packet, Origin) of
  	keepalive ->
  	    keepalive;
  
negative.code: 
      %% Extra spaces and missing spaces
      io:format("test: parse/2 request - 4.1~n"),
      #request{method = "INVITE",
  	     header = Header4,
  	     body   = <<>>
  	    } = parse(Message4, none),
  
      %% verify the Via's
      io:format("test: parse/2 request - 4.2~n"),
  