anchor.diff:      %% Trigger disconnection.
       Connections = disconnect(Peer, Connections0),
   
  -    {noreply, State0#state{connections=Connections}};
  -
  -%% @private
  -handle_message({neighbor_accepted, Peer, PeerTag, DisconnectId},
  +    State = merge_exchange(Exchange, State0#state{connections=Connections}),
  +
  +    {noreply, State};
  +
  +%% @private
  +handle_message({neighbor_accepted, Peer, PeerTag, DisconnectId, Exchange},
                  #state{myself=Myself0,
                         sent_message_map=SentMessageMap0} = State0) ->
       lager:info("Node ~p received the NEIGHBOR_ACCEPTED message from ~p with ~p",
                  [Myself0, Peer, DisconnectId]),
   
  -    State = case is_addable(DisconnectId, Peer, SentMessageMap0) of
  -                true ->
  -                    %% Add node into the active view.
  -                    add_to_active_view(Peer, PeerTag, State0);
  -                false ->
  -                    State0
  -            end,
  +    State1 = case is_addable(DisconnectId, Peer, SentMessageMap0) of
  +                 true ->
  +                     %% Add node into the active view.
  +                     add_to_active_view(Peer, PeerTag, State0);
  +                 false ->
  +                     State0
  +             end,
  +
  +    State = merge_exchange(Exchange, State1),
   
       %% Notify with event.
       notify(State),
  
positive.code:     Exchange = lists:usort(Exchange0),
  
      %% Select random member of the active list.
      case select_random(Active, [Myself]) of
          undefined ->
              ok;
          Random ->
              %% Forward shuffle request.
              do_send_message(Random,
                              {shuffle, Exchange, arwl(), Myself},
                              Connections)
      end,
  
      %% Schedule periodic maintenance of the passive view.
      schedule_passive_view_maintenance(),
  
negative.code:             %% Let peer know we are disconnecting them.
              do_send_message(Peer,
                              {disconnect, Myself0, NextId},
                              Connections1),
  
              %% Trigger disconnection.
              Connections = disconnect(Peer, Connections1),
  
              State#state{connections=Connections,
                          sent_message_map=SentMessageMap}
  