anchor.diff:  remove_unsuitable_locations(URL, Locations) when is_record(URL, sipurl), is_list(Locations) ->
       Locations.
   
  -%% part of remove_unsuitable_locations/2. Returns : list() of sipurl()
  -remove_non_sips_locations([#sipurl{proto="sips"}=H | T], Res) ->
  +%% part of remove_unsuitable_locations/2. Returns : list() of siplocationdb_e record()
  +remove_non_sips_locations([#siplocationdb_e{address=URL}=H | T], Res)
  +  when is_record(URL, sipurl), URL#sipurl.proto == "sips" ->
       remove_non_sips_locations(T, [H | Res]);
  -remove_non_sips_locations([H | T], Res) when is_record(H, sipurl) ->
  +remove_non_sips_locations([H | T], Res) when is_record(H, siplocationdb_e) ->
       remove_non_sips_locations(T, Res);
   remove_non_sips_locations([], Res) ->
       lists:reverse(Res).
  
positive.code: %%====================================================================
  
  %%--------------------------------------------------------------------
  %% Function: lookupregexproute(User)
  %%           User = string(), username
  %% Descrip.: See if we have a regexp that matches User in the Mnesia
  %%           regexp route table. If we find one, we return a proxy
  %%           tuple with the resulting destination. The regexps in the
  %%           database have a priority field, where higher priority
  
negative.code: %%--------------------------------------------------------------------
  %% Function: remove_unsuitable_locations(URL, Locations)
  %%           URL      = sipurl record(), Request-URI of request
  %%           Location = list() of siplocationdb_e record()
  %% Descrip.: Apply local policy for what locations are good to use for
  %%           a particular Request-URI. The default action we do here
  %%           is to remove non-SIPS locations if the Request-URI is
  %%           SIPS, unless we are configured not to.
  %% Returns : list() of siplocationdb_e record()
  %%--------------------------------------------------------------------
  remove_unsuitable_locations(#sipurl{proto="sips"}, Locations) when is_list(Locations) ->
      case sipserver:get_env(ssl_require_sips_registration, true) of
  