anchor.diff:        Change :: {add, {ensemble_id(), peer_id()}, ensemble_info()}
                 | {del, {ensemble_id(), peer_id()}}.
   check_peers(CS) ->
  -    Peers = orddict:from_list(riak_ensemble_peer_sup:peers()),
  +    Peers = orddict_from_list(riak_ensemble_peer_sup:peers()),
       NewPeers = wanted_peers(CS),
  -    Delta = orddict:from_list(riak_ensemble_util:orddict_delta(Peers, NewPeers)),
  +    Delta = orddict_from_list(riak_ensemble_util:orddict_delta(Peers, NewPeers)),
       Changes =
           [case Change of
                {'$none', Info} ->
  
positive.code:                  EPeers <- [compute_all_members(Ensemble, Pending, EViews)],
                   PeerId={_, Node} <- EPeers,
                   Node =:= ThisNode],
      orddict:from_list(Wanted).
  
negative.code:     Pending = riak_ensemble_state:pending(CS),
      Data = [{Ensemble, {Ensemble, Leader, {Vsn,Views}, pending(Ensemble, Pending)}}
              || {Ensemble, #ensemble_info{leader=Leader, views=Views, vsn=Vsn}} <- Ensembles],
      orddict_from_list(Data).
  
  -spec wanted_peers(cluster_state()) -> orddict(Peer, Info) when
        Peer :: {ensemble_id(), peer_id()},
  