anchor.diff:  
       %% contact.urlstr
       io:format("test: add_record_route/2 - 4.1~n"),
  -    #sipurl{proto="sip", host=MyHostname, port=SipLPortList, param_pairs=RRParam1} =
  +    #sipurl{proto="sip", host=MyHostname, port=SipLPort, param_pairs=RRParam1} =
   	sipurl:parse(RRoute1#contact.urlstr),
   
       %% contact.urlstr sipurl parameters
  
positive.code: %% Returns : PortString = string()
  %%--------------------------------------------------------------------
  default_port(Proto, none) when Proto == udp; Proto == udp6; Proto == tcp; Proto == tcp6; Proto == "sip" ->
      "5060";
  default_port(Proto, none) when Proto == tls; Proto == tls6 ; Proto == "sips" ->
      "5061";
  default_port(_, Port) when is_integer(Port) ->
      integer_to_list(Port);
  default_port(_, Port) when is_list(Port) ->
      Port.
  
  %%--------------------------------------------------------------------
  
negative.code: 
      %% contact.urlstr
      io:format("test: add_record_route/2 - 6.3~n"),
      #sipurl{proto="sip", host=MyHostname, port=SipLPort, param_pairs=RRParam2} =
  	sipurl:parse(RRoute2#contact.urlstr),
  
      %% contact.urlstr sipurl parameters
  