anchor.diff:  %% @version $Id$
   -module(rdht_tx_write).
   -author('schintke@onscale.de').
  --vsn('$Id$').
  +-vsn('$Id$ ').
   
   %-define(TRACE(X,Y), io:format(X,Y)).
   -define(TRACE(X,Y), ok).
  
positive.code:     DBEntry = ?DB:get_entry(DB, tx_tlog:get_entry_key(RTLogEntry)),
      %% perform op
      RTLogVers = tx_tlog:get_entry_version(RTLogEntry),
      % Note: WriteLock is always >= DBVers! - old check:
  %%     DBVers = db_entry:get_version(DBEntry),
  %%     if DBVers =< RTLogVers ->
      WriteLock = db_entry:get_writelock(DBEntry),
      if WriteLock =:= RTLogVers -> % op that created the write lock?
             T2DBEntry = db_entry:set_value(
                           DBEntry, tx_tlog:get_entry_value(RTLogEntry)),
             T3DBEntry = db_entry:set_version(T2DBEntry, RTLogVers + 1),
             NewEntry = db_entry:reset_locks(T3DBEntry),
             ?DB:set_entry(DB, NewEntry);
         true ->
             DB %% outdated commit
      end.
  
  -spec abort(?DB:db(), tx_tlog:tlog_entry(), ?prepared | ?abort) -> ?DB:db().
  
negative.code: %%             DBVers = db_entry:get_version(DBEntry),
  %%             if RTLogVers =:= DBVers ->
              WriteLock = db_entry:get_writelock(DBEntry),
              if WriteLock =< RTLogVers ->
                      %% op that created the write lock or outdated WL?
                      NewEntry = db_entry:unset_writelock(DBEntry),
                      ?DB:set_entry(DB, NewEntry);
                 true -> DB
              end;
          ?abort ->
  