anchor.diff:      %% got the request.
       Pids = [ spawn(fun () -> gen_component:bp_step(X) end) || X <- TMs ],
   
  -    %% report all tx_tms as failed
  -    _ = [ comm:send_local(fd, {unittest_report_down, comm:make_global(X)})
  +    %% report all tx_tms as failed after the commit has started...
  +    _ = [ spawn(fun() ->
  +                        timer:sleep(1500),
  +                        comm:send_local(fd, {unittest_report_down, comm:make_global(X)})
  +                end)
             || X <- TMs ],
   
  -    %% ct:pal("Starting read commit~n"),
       Res = api_tx:req_list([{read, "a"}, {commit}]),
   
  -    ct:pal("Res: ~p~n", [Res]),
  +    ?equals_pattern(Res, {_,[_,{ok}]}),
   
       _ = [ erlang:exit(Pid, kill) || Pid <- Pids ],
   
       _ = [ gen_component:bp_del(X, tm_crash) || X <- TMs ],
   
  -    [ gen_component:bp_cont(X) || X <- TMs ].
  -%%ok.
  +    [ gen_component:bp_cont(X) || X <- TMs ],
  +    ok.
   
   tp_crash(_) ->
       ct:pal("Starting tp_crash, simulated by holding the dht_node_proposer~n"),
       api_tx:write("a", "Hello world!"),
       %% ct:pal("written initial value and setting breakpoints now~n"),
  -    Proposers = pid_groups:find_all(paxos_proposer),
  +    AllProposers = pid_groups:find_all(paxos_proposer),
  +    Proposers = [X || X <- AllProposers,
  +                      "basic_services" =/= pid_groups:group_of(X)],
       Proposer = hd(Proposers),
  +    %% ct:pal("Selected ~p~n", [pid_groups:group_and_name_of(Proposer)]),
       %% break one TP (minority) after proposer initialize:
       gen_component:bp_set(Proposer, proposer_initialize, tp_crash),
       %% ct:pal("Breakpoints set~n"),
  
positive.code: end_per_suite(Config) ->
      _ = unittest_helper:end_per_suite(Config),
      ok.
  
  causes() -> [readlock, writelock, versiondec, versioninc, none].
  
  
negative.code:     %% ct:pal("written initial value and setting breakpoints now~n"),
      TMs = pid_groups:find_all(tx_tm),
      %% all TMs break at next commit request:
      _ = [ gen_component:bp_set_cond(X, fun tx_tm_rtm_SUITE:bp_cond_tm_crash/2,
                                      tm_crash) || X <- TMs ],
      %% ct:pal("Breakpoints set~n"),
      _ = [ gen_component:bp_barrier(X) || X <- TMs ],
      %% ct:pal("Barriers set~n"),
  