anchor.diff:  	_ ->
   	    ok
       end,
  +
  +    logger:log(normal, "~s: REGISTER ~s at ~s (priority ~p, expire in ~p)",
  +	       [LogTag, SipUser, Contact#contact.urlstr, Priority, Expire]),
  +
       phone:insert_purge_phone(SipUser, Flags, dynamic,
   			     Expire + util:timestamp(),
  -			     sipurl:parse(Location#contact.urlstr),
  +			     sipurl:parse(Contact#contact.urlstr),
   			     CallId, CSeq).
   
   %%--------------------------------------------------------------------
  
positive.code: 
  
      %% parse_register_expire(ExpireHeader, Contact)
      %%--------------------------------------------------------------------
      autotest:mark(?LINE, "parse_register_expire/2 - 1"),
      %% test default
      3600 = parse_register_expire([], contact:new("sip:ft@example.org")),
  
      autotest:mark(?LINE, "parse_register_expire/2 - 2"),
      %% test that contact parameter is used if present
      1201 = parse_register_expire(["1202"], contact:new("sip:ft@example.org", [{"expires", "1201"}])),
  
      autotest:mark(?LINE, "parse_register_expire/2 - 3"),
      %% test that expires header is used if contact parameter is absent
      1202 = parse_register_expire(["1202"], contact:new("sip:ft@example.org")),
  
      autotest:mark(?LINE, "parse_register_expire/2 - 4"),
      %% test that contact can't be larger than maximum
      43200 = parse_register_expire([], contact:new("sip:ft@example.org", [{"expires", "86400"}])),
  
  
      %% locations_to_contacts2(Locations, Now, SipUser, Do_GRUU, [])
  
negative.code:     not_homedomain = process_register_request(PRR_Request1, Test_THandler, "test logtag", "test logstring", test),
  
  
      %% register_require_supported(RegReq, OrigLogTag)
      %%--------------------------------------------------------------------
      autotest:mark(?LINE, "register_require_supported/2 - 1"),
      %% test with unsupported extensions required
      RRSup_RegReq1 = #reg_request{uri		= sipurl:parse("sip:ft@example.org"),
  				 header		= keylist:from_list([{"To", ["<sip:ft@example.org>"]},
  								     {"Require", ["X-unsupported"]}
  								    ]),
  				 thandler	= Test_THandler
  				},
  
      register_require_supported(RRSup_RegReq1, "foo"),
      %% verify result
      receive
  	{'$gen_cast', {create_response, 420, "Bad Extension", _RRSup_ExtraHeaders, <<>>}} ->
  