anchor.diff:      MoveFullId = slide_op:get_id(OldSlideOp),
       ReplyPid = comm:reply_as(self(), 5, {move, continue, MoveFullId, prepare_send_delta2, '_'}),
       SlideOp1 = slide_op:set_phase(OldSlideOp, wait_for_continue),
  -    case slide_chord:prepare_send_delta1(State, SlideOp1, ReplyPid) of
  +    SlideMod = get_slide_mod(),
  +    case SlideMod:prepare_send_delta1(State, SlideOp1, ReplyPid) of
           {ok, State1, SlideOp2} ->
               PredOrSucc = slide_op:get_predORsucc(SlideOp2),
               dht_node_state:set_slide(State1, PredOrSucc, SlideOp2);
  
positive.code:             SlideOp = slide_op:new_slide(MoveFullId, NewType, TargetId, Tag,
                                           SourcePid, OtherMTE, NextOp, Neighbors),
              % note: phase will be set by notify_other/2 and needs to remain null here
              case slide_chord:prepare_rcv_data(State, SlideOp) of
                  {ok, State1, SlideOp1} when MsgTag =:= nomsg ->
                      notify_other(SlideOp1, State1);
                  {ok, State1, SlideOp1} when MsgTag =:= slide ->
  
negative.code:             SlideOp = slide_op:new_sending_slide_join(
                          MoveFullId, TargetNode, join, Neighbors),
              % note: phase will be set by notify_other/2 and needs to remain null here
              SlideMod = get_slide_mod(),
              case SlideMod:prepare_join_send(State, SlideOp) of
                  {ok, State1, SlideOp1} when MsgTag =:= nomsg ->
                      notify_other(SlideOp1, State1);
                  {ok, State1, SlideOp1} when MsgTag =:= slide ->
  