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:             end
      end,
      %mnesia:write(Table,New,write),
      mnesia_table_action(write, [Table, New, write]),
      {Item,New};
  update_xt({Table,_}, Item, none, Old, Old) when is_atom(Table), is_tuple(Old) ->
      {Item,Old};
  
negative.code:             ?ConcurrencyException({"Record already exists", {Item, New}});
          true ->
              %mnesia:write(Table, New, write),
              mnesia_table_write_access(write, [Table, New, write]),
              {Item,New}
      end;
  update_xt({Table,bag}, Item, Lock, Old, Old) when is_atom(Table) ->
  