anchor.diff:  								attributes = Attributes,
   								enabled = EnabledStatus,
   								multisession = MultiSession,
  -								last_modified = {Now, N}},
  +								last_modified = LM},
   						ok = mnesia:write(S1),
   						S1;
   					[] ->
  
positive.code: 							(F, Identity, I) ->
  								case mnesia:read(service, Identity, write) of
  									[] ->
  										S2 = S1#service{name = Identity},
  										ok = mnesia:write(S2),
  										P2 = P1#product{service = [Identity | ServiceRefs]},
  										ok = mnesia:write(P2),
  										S2;
  									[_] ->
  
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,
  