anchor.diff:  
   dirty_read(Table, Key) when is_atom(Table) ->
       try
  -        return_atomic_list(mnesia_table_read_access(dirty_read, [Table, Key]))
  +        mnesia:dirty_read(Table, Key)
       catch
           exit:{aborted, {no_exists,_}} ->    ?ClientErrorNoLogging({"Table does not exist",Table});
           exit:{aborted, {no_exists,_,_}} ->  ?ClientErrorNoLogging({"Table does not exist",Table});
  
positive.code:     NewKey = element(?KeyIdx,New),
      case {mnesia:read(Table, OldKey),(OldKey==NewKey)} of
          {[Old],true} ->    
              mnesia_table_write_access(write, [Table, New, write]),
              Trigger(Old, New, Table, User, TrOpts),
              {Item,New};
          {[Old],false} ->
              mnesia_table_write_access(delete, [Table, OldKey, write]),    
              mnesia_table_write_access(write, [Table, New, write]),
              Trigger(Old, New, Table, User, TrOpts),
              {Item,New};
          {[],_} ->       
              case Lock of
                  none -> mnesia_table_write_access(write, [Table, New, write]),
                          Trigger(?NoRec, New, Table, User, TrOpts),
                          {Item,New};
                  _ ->    ?ConcurrencyExceptionNoLogging({"Data is deleted by someone else", {Item, Old}})
              end;
          {[Current],true} ->  
              case Lock of
                  none -> mnesia_table_write_access(write, [Table, New, write]),
                          Trigger(Current, New, Table, User, TrOpts),
                          {Item,New};
                  _ ->    ?ConcurrencyExceptionNoLogging({"Data is modified by someone else", {Item,{Old, Current}}})
              end;
          {[Current],false} ->  
              case Lock of
                  none -> mnesia_table_write_access(delete, [Table, OldKey, write]),
                          mnesia_table_write_access(write, [Table, New, write]),
                          Trigger(Current, New, Table, User, TrOpts),
                          {Item,New};
                  _ ->    ?ConcurrencyExceptionNoLogging({"Data is modified by someone else", {Item,{Old, Current}}})
  
negative.code: update_xt({Table,_}, Item, Lock, Old, ?NoRec, Trigger, User, TrOpts) when is_atom(Table), is_tuple(Old) ->
      case mnesia:read(Table, element(?KeyIdx,Old)) of
          [Old] ->    
              mnesia_atomic(delete, [Table, element(?KeyIdx, Old), write]),
              Trigger(Old, ?NoRec, Table, User, TrOpts),
              {Item,?NoRec};
          [] ->       
  