anchor.diff:                                 {simulator_members, FLUNames}]),
                     {SimSelfName, C}
                 end || SimSelfName <- SimSelfNames],
  -    #state{num=Num, seed=Seed, verbose=Verbose,
  -           flu_names=FLUNames, mgr_names=MgrNames,
  -           cr_list=CRList, fc_list=FCList}.
  -
  -setup_chain(Num, Seed, Verbose) ->
  -    %% ?V("setup_chain(Num=~w, Seed=~w~nn", [Num, Seed]),
  -    AllListE = all_list_extra(Num),
  -    FLUNames = [P#p_srvr.name || {P, _Dir} <- AllListE],
  -    MgrNames = [{Name, machi_flu_psup:make_mgr_supname(Name)} || Name <- FLUNames],
  -    Dict = orddict:from_list([{P#p_srvr.name, P} || {P, _Dir} <- AllListE]),
  -
  -    ok = shutdown_hard(),
  -    [begin
  -         machi_flu1_test:clean_up_data_dir(Dir),
  -         filelib:ensure_dir(Dir ++ "/not-used")
  -     end || {_P, Dir} <- AllListE],
  -    [catch ets:delete(T) || T <- tabs()],
  -
  -    [ets:new(T, [set, public, named_table,
  -                 {write_concurrency, true}, {read_concurrency, true}]) ||
  -        T <- tabs()],
  -    {ok, _} = application:ensure_all_started(machi),
  -
  -    SimSpec = {part_sim,
  -               {machi_partition_simulator, start_link, [{0,0,0}, 0, 100]},
  -               permanent, 500, worker, []},
  -    {ok, _PSimPid} = supervisor:start_child(machi_sup, SimSpec),
  -    ok = machi_partition_simulator:set_seed(Seed),
  -    _Partitions = machi_partition_simulator:get(FLUNames),
  -
  -    %% Start FLUs and setup the chain
  -    FLUOpts = [{use_partition_simulator, true},
  -               %% {private_write_verbose, true},
  -               {active_mode, false},
  -               {simulate_repair, false}],
  -    [{ok, _} = machi_flu_psup:start_flu_package(Name, Port, Dir, FLUOpts) ||
  -        {#p_srvr{name=Name, port=Port}, Dir} <- AllListE],
  -    [machi_chain_manager1:set_chain_members(MgrName, Dict) || {_, MgrName} <- MgrNames],
  -
  -    State = initial_state(Num, Seed, Verbose),
  -    %% Don't wait for complete chain. Even partialy completed, the chain
  -    %% should work fine. Right?
  -    wait_until_stable(chain_state_all_ok(FLUNames), FLUNames, MgrNames,
  -                      State#state.fc_list, 20, Verbose),
  -    State.
  +    catch ets:delete(cpool),
  +    ets:new(cpool, [set, protected, named_table, {read_concurrency, true}]),
  +    ets:insert(cpool, {fc_list, FCList}),
  +    ets:insert(cpool, {cr_list, CRList}),
  +    {CRList, FCList}.
  +
  +fc_list() ->
  +    [{fc_list, FCList}] = ets:lookup(cpool, fc_list),
  +    FCList.
  +
  +cr_list() ->
  +    [{cr_list, CRList}] = ets:lookup(cpool, cr_list),
  +    CRList.
   
   %% Post commands
   
   stabilize(0, S) ->
       {ok, S};
   stabilize(_CmdsLen, #state{flu_names=FLUNames, mgr_names=MgrNames,
  -                           fc_list=FCList, verbose=Verbose}=S) ->
  +                           verbose=Verbose}=S) ->
       machi_partition_simulator:no_partitions(),
       wait_until_stable(chain_state_all_ok(FLUNames), FLUNames, MgrNames,
  -                      FCList, 100, Verbose),
  +                      100, Verbose),
       {ok, S}.
   
   chain_state_all_ok(FLUNames) ->
       [{FLUName, {FLUNames, [], []}} || FLUName <- FLUNames].
   
  -confirm_result(#state{cr_list=[{_, C}|_]}=_S) ->
  +confirm_result(#state{}=_S) ->
  +    [{_, C} | _] = cr_list(),
       [{written, _Written}, {accpt, Accpt},
        {failed, Failed}, {critical, Critical}] = tab_counts(),
       {OK, Dataloss} = confirm_written(C),
  
positive.code:                 end,
                  _ = cleanup(SetupState),
                  %% Process is leaking? This log line can be removed after fix.
                  ?V("process_count=~w~n", [erlang:system_info(process_count)]),
                  pretty_commands(
                    ?MODULE, Cmds, {Seq, Par, Res},
                    aggregate(with_title(cmds), command_names(Cmds),
  
negative.code:     timer:sleep(100).
  
  tick(#state{flu_names=FLUNames, mgr_names=MgrNames,
              verbose=Verbose}) ->
      tick(FLUNames, MgrNames, Verbose).
  
  tick(FLUNames, MgrNames, Verbose) ->
      tick(FLUNames, MgrNames, 2, 100, Verbose).
  
  tick(FLUNames, MgrNames, Iter, SleepMax, Verbose) ->
      TickFun = tick_fun(FLUNames, MgrNames, self()),
      TickFun(Iter, 0, SleepMax),
      FCList = fc_list(),
      [?V("## Chain state after tick()=~w~n", [chain_state(FCList)]) || Verbose].
  
  tick_fun(FLUNames, MgrNames, Parent) ->
  