anchor.diff:  
   locations_to_contacts2([], Res) ->
       Res;
  -locations_to_contacts2([H | T], Res) ->
  +locations_to_contacts2([H | T], Res) when is_record(H, phone) ->
       Location = H#phone.address,
       Expire = H#phone.expire,
   
       %% Expires can't be less than 0 so make sure we don't end up with a negative Expires
       NewExpire = lists:max([0, Expire - util:timestamp()]),
  -    Contact = contact:new(Location, [{"expire", integer_to_list(NewExpire)}]),
  +    Contact = contact:new(Location, [{"expires", integer_to_list(NewExpire)}]),
   
       locations_to_contacts2(T, [contact:print(Contact) | Res]).
   
  
positive.code: %% Descrip.: determine if request is a properly formed wildcard
  %%           request (see RFC 3261 Chapter 10 page 64 - step 6)
  %% Returns : true     |
  %%           SipError
  %% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  %% there is only one Contact and it's a wildcard
  is_valid_wildcard_request(Header, [ #contact{urlstr = "*"} ]) ->
      Expire = sipheader:expire(Header),
      case Expire of
  	[$0 | _] ->
  	    %% cast to integer so that "0", "00" ... and so on are all considered as 0
  	    case catch list_to_integer(Expire) of
  		0 ->
  
negative.code: %%--------------------------------------------------------------------
  process_non_wildcard_contacts(LogTag, SipUser, Locations, RequestHeader) ->
      RequestCallId = sipheader:callid(RequestHeader),
      {CSeq, _CSeqMethod}  = sipheader:cseq(RequestHeader),
      RequestCSeq = list_to_integer(CSeq),
  
      %% get expire value from request header only once, this will speed up the calls to
  