anchor.diff:  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   on({l_on_cseq, renew, Old = #lease{id=Id,version=OldVersion}, Mode},
      State) ->
  -    log:pal("on renew ~w (~w)~n", [Old, Mode]),
  +    %log:pal("on renew ~w (~w)~n", [Old, Mode]),
       New = Old#lease{version=OldVersion+1, timeout=new_timeout()},
       ContentCheck = generic_content_check(Old, New, renew),
   %% @todo New passed for debugging only:
  
positive.code: on({l_on_cseq, merge_reply_step2, L1 = #lease{id=Id,epoch=OldEpoch}, ReplyTo,
      {qwrite_done, _ReqId, _Round, L2}}, State) ->
      % @todo if success update lease in State
      New = L1#lease{epoch   = OldEpoch + 1,
                     version = 0,
                     aux     = {invalid, merge, stopped},
  
negative.code:                                               merge_reply_step2);
  
  on({l_on_cseq, merge_reply_step3, L2, ReplyTo,
      {qwrite_deny, _ReqId, Round, L1, {content_check_failed, Reason}}}, State) ->
      % @todo if success update lease in State
      log:pal("merge step3 failed~n~w~n~w~n~w~n", [Reason, L1, L2]),
      case Reason of
  