anchor.diff:  %%                   ct:pal("killing ~.0p~n", [Proc]),
                     Tabs = util:ets_tables_of(X),
                     try erlang:exit(X, kill) of
  -                      true -> util:wait_for_process_to_die(X),
  -                              _ = [ util:wait_for_table_to_disappear(Tab) || Tab <- Tabs ],
  +                      true ->
  +                          util:wait_for_process_to_die(X),
  +                          _ = [begin
  +%%                                    ct:pal("waiting for table ~.0p to disappear~n~p",
  +%%                                           [Tab, ets:info(Tab)]),
  +                                   util:wait_for_table_to_disappear(Tab)
  +                               end || Tab <- Tabs ],
                                 {ok, Proc}
                     catch _:_ -> {fail, Proc}
                     end
  
positive.code:     lists:flatten([WorkerChilds | [get_all_children(S) || S <- SupChilds]]).
  
  -type process_info() ::
      {pid(), InitCall::mfa(), CurFun::mfa(), Info::term | failed | no_further_infos}.
  
  -spec get_processes() -> [process_info()].
  get_processes() ->
      [begin
           InitCall = element(2, lists:keyfind(initial_call, 1, Data)),
           CurFun = element(2, lists:keyfind(current_function, 1, Data)),
           Info =
               case {InitCall, CurFun} of
                   {{gen_component, _, _}, {gen_component, _, _}} ->
  
negative.code:                      end;
                   _ -> no_further_infos
               end,
           {X, InitCall, CurFun, {RegName, Info}}
       end
       || X <- processes(),
          Data <- [process_info(X, [current_function, initial_call, registered_name])],
          Data =/= undefined].
  
  -spec kill_new_processes(OldProcesses::[process_info()]) -> ok.
  