anchor.diff:      if
           Exists ->
               %mnesia:delete_object(Table, Old, write),
  -            mnesia_table_action(delete_object, [Table, Old, write]),
  +            mnesia_table_write_access(delete_object, [Table, Old, write]),
               {Item,{}};
           Lock == none ->
               {Item,{}};
  
positive.code:     ok;
  update_xt({Table,_}, Item, _Lock, Old, {}) when is_atom(Table), is_tuple(Old) ->
      %mnesia:delete(Table, element(2, Old), write),
      mnesia_table_action(delete, [Table, element(2, Old), write]),
      {Item,{}};
  update_xt({Table,_}, Item, Lock, {}, New) when is_atom(Table), is_tuple(New) ->
      if
  
negative.code:             end
      end,
      %mnesia:write(Table,New,write),
      mnesia_table_write_access(write, [Table, New, write]),
      {Item,New};
  update_xt({Table,_}, Item, none, Old, Old) when is_atom(Table), is_tuple(Old) ->
      {Item,Old};
  