anchor.diff:  on({takeover_success, get_state, L2, LeaseId, {get_state_response, LeaseList}}, State) ->
       ActiveLease = lease_list:get_active_lease(LeaseList),
       Pid = comm:reply_as(self(), 4, {merge_after_rm_change, L2, ActiveLease, '_'}),
  +    %% log:log("rm_leases: merging ~p and ~p~n", [L2, ActiveLease]),
       l_on_cseq:lease_merge(L2, ActiveLease, Pid),
       remove_takeover(State, LeaseId, L2);
   
  
positive.code:         {qread_done, _ReqId, _Round, Lease} ->
              LeaseId = l_on_cseq:get_id(Lease),
              Pid = comm:reply_as(self(), 4, {takeover_after_rm_change, LeaseId, Lease, '_'}),
              l_on_cseq:lease_takeover(Lease, Pid),
              add_takeover(State, Lease);
          _ ->
  
negative.code:     comm:send(Pid, {get_takeovers_response, Takeovers}),
      State.
  
  -spec compare_and_fix_rm_with_leases(state(), intervals:interval(), intervals:interval(),
                                       lease_list:lease_list(), intervals:interval())
                                       -> state().
  compare_and_fix_rm_with_leases(State, OldRange, NewRange, LeaseList, MyRange) ->
      ?TRACE("lease list ~w", [LeaseList]),
  