anchor.diff:      NewEntry =
           case DBVers > RTLogVers of
               true ->
  -                ct:pal("Outdated: DBVers: ~p RTLogVers: ~p~n",
  -                          [DBVers, RTLogVers]),
                   DBEntry; %% outdated commit
               false ->
  -                case RTLogVers > DBVers of
  -                    true ->
  -                        ct:pal("Fast forward: DBVers: ~p RTLogVers: ~p~n",
  -                                  [DBVers, RTLogVers]);
  -                    false -> ok
  -                end,
                   T2DBEntry = db_entry:set_value(
                                 DBEntry, tx_tlog:get_entry_value(RTLogEntry)),
                   T3DBEntry = db_entry:set_version(T2DBEntry, RTLogVers + 1),
                   TEntry = db_entry:reset_locks(T3DBEntry),
  -                io:format("UnSetWriteLock in commit ~p~n", [TEntry]),
                   TEntry
           end,
       ?DB:set_entry(DB, NewEntry).
  
positive.code:         true ->
              %% set locks on entry
              NewEntry = db_entry:set_writelock(DBEntry),
              io:format("SetWriteLock in validate ~p~n", [NewEntry]),
              NewDB = ?DB:set_entry(DB, NewEntry),
              {NewDB, prepared};
          false ->
  
negative.code:             case RTLogVers of
                  DBVers ->
                      NewEntry = db_entry:unset_writelock(DBEntry),
                      ?DB:set_entry(DB, NewEntry);
                  _ -> DB
              end;
  