anchor.diff:      This = comm:reply_as(self(), 3, {qwrite_read_done, ReqId, '_'}),
       case save_entry(Entry, tablename(State)) of
           ok ->
  -            gen_component:post_op({qround_request, This, OpenReqEntry, Key, DataType,
  -                                 element(1, Filters), write, _RetriggerAfter = 1}, State);
  +            case RoundToTry of
  +                incremental ->
  +                    gen_component:post_op({qround_request, This, OpenReqEntry, Key, DataType,
  +                        element(1, Filters), write, _RetriggerAfter = 1}, State);
  +                _ ->
  +                    gen_component:post_op({qread, This, OpenReqEntry, Key, DataType,
  +                        element(1, Filters), _RetriggerAfter = 1, RoundToTry, write}, State)
  +            end;
           error ->
               %% client has already received reply
               State
  
positive.code: 
  %% normal qwrite step 1: preparation and starting read-phase
  on({qwrite, Client, OpenReqEntry, Key, DataType, Filters, WriteValue, RetriggerAfter}, State) ->
      ?TRACE("rbrcseq:on qwrite~n", []),
      %% assign new reqest-id
      ReqId = uid:get_pids_uid(),
  
negative.code:                     NewEntry2 = entry_set_optype(NewEntry, denied_write),
                      NewEntry3 = entry_disable_retrigger(NewEntry2),
                      update_entry(NewEntry3, TableName),
  
                      NextMsg = {qwrite,
                                 entry_client(Entry),
                                 entry_openreqentry(Entry),
                                 entry_key(Entry),
                                 entry_datatype(Entry),
                                 entry_filters(Entry),
                                 entry_write_val(Entry),
                                 entry_retrigger(NewEntry),
                                 % round to retry in... + 2 to account for incremented
                                 % read round prepared for fast writes
                                 2 + pr:get_r(Replies#w_replies.highest_write_round)
                                },
  
                      case randoms:rand_uniform(1, UpperLimit) of
                          1 ->
                              %% retry read immediately
                              gen_component:post_op(NextMsg, State);
                          2 ->
                              %% delay before retry
                              Delay = 15 + randoms:rand_uniform(1, 10),
                              comm:send_local_after(Delay, self(), NextMsg),
                              State
                      end
              end
  