anchor.diff:  							(F, Identity, I) ->
   								case mnesia:read(service, Identity, write) of
   									[] ->
  -										S2 = S1#service{name = Identity},
  +										TS = erlang:system_time(?MILLISECOND),
  +										N = erlang:unique_integer([positive]),
  +										LM = {TS, N},
  +										S2 = S1#service{name = Identity, last_modified = LM},
   										ok = mnesia:write(S2),
  -										P2 = P1#product{service = [Identity | ServiceRefs]},
  +										P2 = P1#product{service = [Identity | ServiceRefs], last_modified = LM},
   										ok = mnesia:write(P2),
   										S2;
   									[_] ->
  
positive.code: 								attributes = Attributes,
  								enabled = EnabledStatus,
  								multisession = MultiSession,
  								last_modified = {Now, N}},
  						ok = mnesia:write(S1),
  						S1;
  					[] ->
  
negative.code: 					[#product{service = ServiceRefs} = P1] ->
  						Now = erlang:system_time(?MILLISECOND),
  						N = erlang:unique_integer([positive]),
  						LM = {Now, N},
  						P2 = P1#product{service = [Identity | ServiceRefs],
  								last_modified = LM},
  						ok = mnesia:write(P2),
  						S1 = #service{name = Identity,
  								password = Password,
  