anchor.diff:      {ok, {_, Specs}} = init([]),
   
       Old = sets:from_list(
  -	    [Name || {Name, _, _, _} <- supervisor:which_children(?MODULE)]),
  +            [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:terminate_child(?MODULE, Id),
  +                      supervisor:delete_child(?MODULE, Id),
  +                      ok
  +              end, ok, Kill),
   
       [supervisor:start_child(?MODULE, Spec) || Spec <- Specs],
       ok.
  
positive.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
  
negative.code:     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")),		
  