anchor.diff:      Dst = get_flu_config_dir(S),
       ok = file:rename(File, Dst ++ "/" ++ atom_to_list(FLU)),
       S.
  +
  +move_to_chain_config(Name, File, S) ->
  +    lager:info("Creating chain config file ~w\n", [Name]),
  +    Dst = get_chain_config_dir(S),
  +    ok = file:rename(File, Dst ++ "/" ++ atom_to_list(Name)),
  +    S.
  
positive.code:             bootstrap_chain2(CD, FLU, N-1)
      end.
  
  set_chain_members(OldChainName, NewChainName,
                    OldAll_list, OldWitnesses, NewAll_list, NewWitnesses,
                    Mgr, ChainName, OldEpoch, CMode, MembersDict, Props) ->
      if OldChainName == NewChainName,
         OldAll_list == NewAll_list, OldWitnesses == NewWitnesses ->
              ok;
         OldEpoch == 0 orelse (OldChainName == NewChainName) ->
              machi_chain_manager1:set_chain_members(Mgr, ChainName, OldEpoch,
                                                     CMode,
                                                     MembersDict, NewWitnesses);
         true ->
              chain_bad_arg
  
negative.code:             _ = move_to_rejected(File, S),
              S;
          true ->
              case machi_flu_psup:start_flu_package(P) of
                  {ok, SupPid} ->
                      lager:info("Started FLU ~w with supervisor pid ~p\n",
                                 [FLU, SupPid]),
                      _ = move_to_flu_config(FLU, File, S),
                      S;
                  Else ->
                      lager:error("Start FLU ~w failed: ~p\n", [FLU, Else]),
                      _ = move_to_rejected(File, S),
                      S
              end
      end.
  
  process_pending_chains(P_Chains, S) ->
      lists:foldl(fun process_pending_chain/2, S, P_Chains).
  
  process_pending_chain({File, CD}, S) ->
      #chain_def_v1{full=Full, witnesses=Witnesses} = CD,
      case sanitize_chain_def_records([CD]) of
          [CD] ->
              RunningFLUs = get_local_running_flus(),
              AllNames = [FLUName || #p_srvr{name=FLUName} <- Full ++ Witnesses],
              case ordsets:intersection(ordsets:from_list(AllNames),
                                        ordsets:from_list(RunningFLUs)) of
                  [] ->
  