anchor.diff:  integrate_values(OtherState, MyState) ->
       MyPerfRR1 = integrate_value(OtherState#state.perf_rr, MyState#state.perf_rr),
       MyPerfLH1 = integrate_value(OtherState#state.perf_lh, MyState#state.perf_lh),
  -    MyState#state{round = OtherState#state.round,
  +    MyState#state{id = OtherState#state.id,
                     perf_rr = MyPerfRR1, perf_lh = MyPerfLH1}.
   
   -spec integrate_value(OtherDB::rrd:rrd(), MyDB::rrd:rrd()) -> rrd:rrd().
  
positive.code:                   end
            end, Leader, DataL),
      {AllNodes, Leader1};
  on({gather_stats_response, _Round, _Data} = _Msg, State) ->
      ?TRACE1(_Msg, State),
      State;
  
  on({report_value, OtherState} = _Msg, {AllNodes, Leader} = _State)
    when OtherState#state.round > AllNodes#state.round ->
      ?TRACE1(_Msg, _State),
      AllNodes1 = integrate_values(OtherState, AllNodes),
      {AllNodes1, Leader};
  
  on({report_value, _OtherState} = _Msg, State) ->
      ?TRACE1(_Msg, State),
      State;
  
  on({get_rrds, KeyList, SourcePid}, {AllNodes, _Leader} = State) ->
      MyData = lists:flatten(
  
negative.code:                end || {Process, Key, DB} <- DBs, DB =/= undefined]),
      case DataL of
          [] -> ok;
          _  -> comm:send(SourcePid, {gather_stats_response, Id, DataL})
      end,
      State;
  
  on({gather_stats_response, Id, DataL} = _Msg, {AllNodes, Leader} = _State)
    when Id =:= Leader#state.id ->
      ?TRACE1(_Msg, _State),
      Leader1 =
          lists:foldl(
  