anchor.diff:      %% Make list sorted and remove duplicates
       lists:usort(Res);
   collect_addresses2([H | T], Res) when is_record(H, address) ->
  -    collect_addresses2(T, lists:append(Res, [H#address.address]));
  -collect_addresses2([H | T], Res) ->
  -    logger:log(error, "userdb-file: Input to collect_addresses2 is not address record : ~p",
  -	       [H]),
  -    collect_addresses2(T, Res).
  +    collect_addresses2(T, [H#address.address | Res]).
   
   
   %%--------------------------------------------------------------------
  
positive.code: get_user2(User, [H | _T]) when is_record(H, user), H#user.name == User ->
      H;
  get_user2(User, [H | T]) when is_record(H, user) ->
      get_user2(User, T);
  get_user2(User, [H | T]) ->
      logger:log(error, "userdb-file: Malformed user record : ~p", [H]),
      get_user2(User, T).
  
  %%--------------------------------------------------------------------
  %% Function: get_addresses_using_user(Username)
  
negative.code: %%           In = list() of string(), list of usernames
  %% Descrip.: Return a list of forward addresses for a list of users.
  %%           Uses the next function, get_forward_for_user/1.
  %% Returns : ForwardList = list() of sipproxy_forward record()
  %%--------------------------------------------------------------------
  get_forwards_for_users(In) ->
      get_forwards_for_users2(In, []).
  
  get_forwards_for_users2([], Res) ->
      Res;
  get_forwards_for_users2([H | T], Res) ->
      case get_forward_for_user(H) of
  	Fwd when is_list(Fwd) ->
  	    get_forwards_for_users2(T, lists:append(Res, Fwd));
  	nomatch ->
  	    get_forwards_for_users2(T, Res);
  	error ->
  