anchor.diff:  
       Collector = comm:make_global(collector(Count, self())),
   
  -    spawn(fun() ->
  -                  [learner:start_paxosid(hd(Learners), Id, Majority, Collector, chocolate_chip_cookie)
  -                   || Id <- lists:seq(1, Count)]
  -          end),
  -    spawn(fun() ->
  -                  [acceptor:start_paxosid(X, Id, Learners)
  -                   || X <- Acceptors,  Id <- lists:seq(1, Count)]
  +    _ = spawn(fun() ->
  +                      [ learner:start_paxosid(hd(Learners), Id, Majority, Collector, chocolate_chip_cookie)
  +                          || Id <- lists:seq(1, Count)]
  +              end),
  +    _ = spawn(fun() ->
  +                      [ acceptor:start_paxosid(X, Id, Learners)
  +                          || X <- Acceptors,  Id <- lists:seq(1, Count)]
              end),
  -    spawn( fun() ->
  -                   [proposer:start_paxosid(hd(Proposers), Id, Acceptors,
  -                                           prepared, Majority, CountProposers)
  -                    || Id <- lists:seq(1, Count)]
  -           end),
  -    receive
  -        done ->
  -            ok
  -    end,
  -    ok.
  +    _ = spawn(fun() ->
  +                      [ proposer:start_paxosid(hd(Proposers), Id, Acceptors,
  +                                               prepared, Majority, CountProposers)
  +                          || Id <- lists:seq(1, Count)]
  +              end),
  +    receive done -> ok
  +    end.
   
   test_fast_acceptors_4(_Config) ->
       Count = 10000,
  
positive.code:     unittest_helper:end_per_suite(Config),
      ok.
  
  %% make proposers, acceptors, and learners
  make(P, A, L, Prefix) ->
      NumMDs = lists:max([P,A,L]),
      [ msg_delay:start_link({Prefix, X}) || X <- lists:seq(1,NumMDs)],
      Ps = [ comm:make_global(element(2, proposer:start_link({Prefix, X})))
             || X <- lists:seq(1,P)],
      As = [ comm:make_global(element(2, acceptor:start_link({Prefix, X})))
             || X <- lists:seq(1,A)],
      Ls = [ comm:make_global(element(2, learner:start_link({Prefix, X})))
             || X <- lists:seq(1,L)],
      {Ps, As, Ls}.
  
  collector(Count, Owner) ->
      spawn(fun() ->
                    collect(Count),
                    Owner ! done
            end).
  
  collect(0) ->
      ok;
  collect(Count) ->
  
negative.code:     CountAcceptors = 4,
      Majority = CountAcceptors div 2 + 1,
      {Proposers, Acceptors, Learners} =
          make(CountProposers, CountAcceptors, 1, "two_proposers"),
  
      %% start paxosids in the components
      learner:start_paxosid(hd(Learners), paxid123, Majority, comm:this(), cpaxid123),
      _ = [ acceptor:start_paxosid(X, paxid123, Learners) || X <- Acceptors ],
      [ Proposer1, Proposer2 ] = Proposers,
  
      %% set some breakpoints
      gen_component:bp_set(comm:make_local(Proposer1), acceptor_ack, bp1),
      %% initiate full paxos
      proposer:start_paxosid(Proposer1, paxid123, Acceptors,
                             prepared, Majority, length(Proposers), 3),
  