anchor.diff:      init_wmtrace(),
       Processes = [],
       {ok, {{one_for_one, 9, 10}, Processes}}.
  -    
  +
   init_wmtrace() ->
       Dir = valid_wmtrace_dir(application:get_env(wmtrace_dir)),
       ok = filelib:ensure_dir(filename:join(Dir, "test")),		
  
positive.code:     {ok, {_, Specs}} = init([]),
  
      Old = sets:from_list(
  	    [Name || {Name, _, _, _} <- supervisor:which_children(?MODULE)]),
      New = sets:from_list([Name || {Name, _, _, _, _, _} <- Specs]),
      Kill = sets:subtract(Old, New),
  
      sets:fold(fun (Id, ok) ->
  		      supervisor:terminate_child(?MODULE, Id),
  		      supervisor:delete_child(?MODULE, Id),
  		      ok
  	      end, ok, Kill),
  
      [supervisor:start_child(?MODULE, Spec) || Spec <- Specs],
      ok.
  
negative.code: 
  start_perf_logger(BaseDir) ->
      ChildSpec = 
          {webmachine_perf_logger,
           {webmachine_perf_logger, start_link, [BaseDir]},
           permanent, 5000, worker, [webmachine_perf_logger]},
      supervisor:start_child(?MODULE, ChildSpec).
  
  %% @spec upgrade() -> ok
  