anchor.diff:  on({l_on_cseq, merge_reply_step3, L2, ReplyTo,
       {qwrite_deny, _ReqId, Round, L1, Reason}}, State) ->
       % @todo if success update lease in State
  -    ct:pal("merge step3 failed~n~w~n~w~n~w~n", [Reason, L1, L2]),
  +    log:pal("merge step3 failed~n~w~n~w~n~w~n", [Reason, L1, L2]),
       case Reason of
           unexpected_timeout ->
               % retry
  
positive.code: on({l_on_cseq, merge_reply_step2, L1, ReplyTo,
      {qwrite_deny, _ReqId, Round, L2, Reason}}, State) ->
      % @todo if success update lease in State
      ct:pal("merge step2 failed~n~w~n~w~n~w~n", [Reason, L1, L2]),
      case Reason of
          unexpected_timeout ->
              % retry
  
negative.code: on({l_on_cseq, merge_reply_step4, L1, ReplyTo,
      {qwrite_deny, _ReqId, Round, L2, Reason}}, State) ->
      % @todo if success update lease in State
      log:pal("merge step4 failed~n~w~n~w~n~w~n", [Reason, L1, L2]),
      % retry?
      case Reason of
          unexpected_timeout ->
  