anchor.diff:  -spec tlog_add_on_nr(tx_tlog:tlog_entry(), client_key(),
                         client_value()) ->
                                {tx_tlog:tlog_entry(), result_entry_write()}.
  -tlog_add_on_nr(Entry, _Key, X)
  -  when (not erlang:is_number(X)) ->
  +tlog_add_on_nr(Entry, _Key, X) when (not erlang:is_number(X)) ->
       Error = {fail, not_a_number},
  -    NewTlogEntry = case tx_tlog:get_entry_status(Entry) of
  -                       {fail, _} -> Entry;
  -                       not_found -> tx_tlog:set_entry_status(Entry, {fail, not_found});
  -                       _ -> tx_tlog:set_entry_status(Entry, Error)
  -                   end,
  -    {NewTlogEntry, Error};
  +    {update_tlog_entry_2phase_op(Entry, Error), Error};
   tlog_add_on_nr(Entry, Key, X) ->
       {_, Res0} = tlog_read(Entry, Key),
       case Res0 of
  
positive.code:             rl_chk_and_encode(RL, [{rdht_tx_write, Key,
                                      encode_value(Value)} | Acc],
                                OKorAbort);
          {commit} ->
              log:log(warn, "Commit not at end of a req_list. Deciding abort."),
              rl_chk_and_encode(RL, [{commit} | Acc], abort);
          Op ->
              rl_chk_and_encode(RL, [Op | Acc], OKorAbort)
      end.
  
negative.code:             NewEntryAndResult(Entry, Value);
          {fail, not_a_number} ->
              NewEntryAndResult(Entry, Value);
          {fail, _Reason} = Failed ->
              {Entry, Failed};
          value ->
              NewEntryAndResult(Entry, Value);
          not_found ->
  