anchor.diff:  	[User] ->
   	    %% There exists exactly one user with this name
   	    User;
  -	Users when list(Users) ->
  +	Users when is_list(Users) ->
   	    logger:log(debug, "userdb-file: More than one user with address ~p (~p)", [Address, Users]),
   	    error;
   	Unknown ->
  
positive.code:     {ok, lists:reverse(U), lists:reverse(A)};
  parse_term([{user, Params} | T], U, A) ->
      case parse_user(Params, #user{}) of
  	R when record(R, user) ->
  	    parse_term(T, [R | U], A);
  	E ->
  	    E
      end;
  parse_term([{address, Params} | T], U, A) ->
      case parse_address(Params, #address{}) of
  	R when record(R, address) ->
  	    parse_term(T, U, [R | A]);
  	E ->
  	    E
      end;
  parse_term([H | T], U, A) ->
      {error, io_lib:format("sipuserdb_file: Unknown data : ~p", [H])}.
  
  parse_user([], U) ->
      U;
  parse_user([{name, V} | T], U) when record(U, user) ->
      parse_user(T, U#user{name=V});
  parse_user([{password, V} | T], U) when record(U, user) ->
      parse_user(T, U#user{password=V});
  parse_user([{classes, V} | T], U) when record(U, user) ->
      parse_user(T, U#user{classes=V});
  parse_user([{forward, V} | T], U) when record(U, user) ->
      parse_user(T, U#user{forward=V});
  parse_user([H | T], U) when record(U, user) ->
      E = io_lib:format("bad data in user record (name ~p) : ~p", [U#user.name, H]),
      {error, E}.
  
  parse_address([], A) ->
      A;
  parse_address([{user, V} | T], A) when record(A, address) ->
      parse_address(T, A#address{user=V});
  parse_address([{address, V} | T], A) when record(A, address) ->
      parse_address(T, A#address{address=V});
  parse_address([H | T], A) when record(A, address) ->
      E = io_lib:format("bad data in address record (user ~p) : ~p", [A#address.user, H]),
      {error, E}.
  
negative.code: %%====================================================================
  
  %%--------------------------------------------------------------------
  %% Function: init([])
  %% Descrip.: Initiates the server
  %% Returns : {ok, State}          |
  %%           {ok, State, Timeout} |
  %%           ignore               |
  %%           {stop, Reason}
  %%--------------------------------------------------------------------
  init([]) ->
      case sipserver:get_env(sipuserdb_file_filename, none) of
  