anchor.diff:  update_client(Address, Password) when is_list(Password) ->
   	update_client(Address, list_to_binary(Password));
   update_client(Address, Password) ->
  +	TS = erlang:system_time(millisecond),
  +	N = erlang:unique_integer([positive]),
  +	LM = {TS, N},
   	F = fun() ->
   				case mnesia:read(client, Address, write) of
   					[Entry] ->
  -						TS = erlang:system_time(millisecond),
  -						N = erlang:unique_integer([positive]),
  -						NewEntry = Entry#client{secret = Password, last_modified = {TS,N}},
  +						NewEntry = Entry#client{secret = Password, last_modified = LM},
   						mnesia:write(client, NewEntry, write);
   					[] ->
   						throw(not_found)
  
positive.code: 		when A >= 1, A =< 255, B >= 0, C =< 255,
  		C >= 0, D =< 255, D >= 1, A < 255,
  		is_binary(Secret), is_boolean(PasswordRequired) ->
  	F = fun() ->
  				TS = erlang:system_time(millisecond),
  				N = erlang:unique_integer([positive]),
  				LM = {TS, N},
  				R = #client{address = Address, port = Port, protocol = radius,
  						secret = Secret, password_required = PasswordRequired,
  						trusted = Trusted, last_modified = LM},
  				ok = mnesia:write(R),
  				R
  	end,
  
negative.code: 	add_offer1(Offer).
  %% @hidden
  add_offer1(Offer) ->
  	TS = erlang:system_time(millisecond),
  	N = erlang:unique_integer([positive]),
  	LM = {TS, N},
  	Fadd = fun() ->
  		Offer1 = Offer#offer{last_modified = LM},
  		{mnesia:write(offer, Offer1, write), Offer1}
  	end,
  	case mnesia:transaction(Fadd) of
  