anchor.diff:  		N = erlang:unique_integer([positive]),
   		Entry = Product#product{last_modified = {TS, N}},
   		mnesia:write(product, Entry, write),
  -		LM
  +		{TS, N}
   	end,
   	case mnesia:transaction(F) of
   		{atomic, LastModified} ->
  
positive.code: 					[#product{start_date = SD, termination_date = TD, status = Status }] ->
  						TS = erlang:system_time(?MILLISECOND),
  						N = erlang:unique_integer([positive]),
  						NewBuckets = [#bucket{last_modified = {TS, N}} || B <- Buckets],
  						P = #product_instance{start_date = SD, termination_date = TD,
  								status = Status, product = Product, last_modified = {TS, N}},
  						S = #subscriber{name = Identity, password = Password,
  
negative.code: 					[Entry] ->
  						TS = erlang:system_time(?MILLISECOND),
  						N = erlang:unique_integer([positive]),
  						NewBuckets = [B#bucket{last_modified = {TS, N}} || B <- Buckets],
  						NewEntry = Entry#subscriber{attributes = Attributes,
  							buckets = NewBuckets, enabled = EnabledStatus,
  							multisession = MultiSession, last_modified = {TS, N}},
  