anchor.diff:                         {error, dead} ->
                              Processes;
                          _ ->
  -                           case lists:keyfind(Label, 2, Processes) of
  +                           case lists:keyfind({Label, Pid}, 2, Processes) of
                                  false ->
                                      MRef = erlang:monitor(process, Pid),
  -                                   [{MRef, Label} | Processes];
  +                                   [{MRef, {Label, Pid}} | Processes];
                                  _ ->
                                      Processes
                              end
  
positive.code:     {noreply, maybe_notify_cbauth(State)};
  handle_info({'DOWN', MRef, _, Pid, Reason},
              #state{rpc_processes = Processes} = State) ->
      {value, {MRef, Label}, NewProcesses} = lists:keytake(MRef, 1, Processes),
      ?log_debug("Observed json rpc process ~p died with reason ~p", [{Label, Pid}, Reason]),
      {noreply, State#state{rpc_processes = NewProcesses}};
  
  
negative.code:         CBAuthInfo ->
              State;
          Info ->
              [notify_cbauth(Label, Info) || {_, {Label, _}} <- Processes],
              State#state{cbauth_info = Info}
      end.
  
  