anchor.diff:              {error, Other}
       end.
   
  -cleanup(#state{fc_list=FCList, cr_list=CRList}=_S) ->
  -    [begin unlink(FC), catch exit(FC, kill) end || {_, FC} <- FCList],
  -    [begin unlink(CR), catch exit(CR, kill) end || {_, CR} <- CRList],
  +cleanup(_Target) ->
  +    [begin unlink(FC), catch exit(FC, kill) end || {_, FC} <- fc_list()],
  +    [begin unlink(CR), catch exit(CR, kill) end || {_, CR} <- cr_list()],
       _ = shutdown_hard().
   
  -%% Internal utilities
  +%% Internal misc utilities
   
   eqc_verbose() ->
       os:getenv("EQC_VERBOSE") =:= "true".
  
positive.code:     [{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],
  
      {CRList, FCList} = setup_pool(AllListE),
      State = #state{num=Num, seed=Seed, verbose=Verbose,
                     flu_names=FLUNames, mgr_names=MgrNames,
                     cr_count=cr_count(Num),
                     cr_list=CRList, fc_list=FCList},
      %% 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,
                        20, Verbose),
      State.
  
  setup_pool(AllListE) ->
      Num = length(AllListE),
      FLUNames = [P#p_srvr.name || {P, _Dir} <- AllListE],
      Dict = orddict:from_list([{P#p_srvr.name, P} || {P, _Dir} <- AllListE]),
  
      FCList = [begin
                    {ok, PCPid} = machi_proxy_flu1_client:start_link(P),
                    {Name, PCPid}
  
negative.code:             {other_error, Other}
      end.
  
  %% Change partition
  
  change_partition_args(#state{flu_names=FLUNames}=S) ->
      %% [partition(FLUNames), S].
  