anchor.diff:  dirty_write(Table, Row) when is_atom(Table), is_tuple(Row) ->
       try
           % ?Log("mnesia:dirty_write ~p ~p~n", [Table,Row]),
  -        %mnesia:dirty_write(Table, Row)
  -        mnesia_table_action(dirty_write, [Table, Row])
  +        mnesia_table_write_access(dirty_write, [Table, Row])
       catch
           exit:{aborted, {no_exists,_}} ->    ?ClientErrorNoLogging({"Table does not exist",Table});
           exit:{aborted, {no_exists,_,_}} ->  ?ClientErrorNoLogging({"Table does not exist",Table});
  
positive.code:     if
          Exists ->
              %mnesia:delete_object(Table, Old, write),
              mnesia_table_action(delete_object, [Table, Old, write]),
              {Item,{}};
          Lock == none ->
              {Item,{}};
  
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};
  