anchor.diff:  
   %% @doc Return the list of all provided services.
   handle_get_provided(State) ->
  -    get_provided_for_modules(handle_get_modules(State)).
  +    get_provided_for_modules(handle_get_running(State)).
   
   get_provided_for_modules(Modules) ->
       lists:flatten(
  
positive.code:     Old  = sets:from_list([Name || {Name, _} <- ChildrenPids]),
      New  = sets:from_list(ValidModules),
      Kill = sets:subtract(Old, New),
      {ok, Create} = dependency_sort(sets:to_list(sets:subtract(New, Old))),
  
      sets:fold(fun (Module, ok) ->
                z_supervisor:delete_child(ModuleSup, Module),
                ok
  
negative.code: handle_get_modules(State) ->
      [ Name || {Name,_Pid} <- handle_get_modules_pid(State) ].
  
  %% @doc Return the list of module names currently managed and running by the z_supervisor.
  handle_get_running(State) ->
      z_supervisor:running_children(State#state.sup).
  
  %% @doc Return the list of module names and their pid currently managed by the z_supervisor.
  handle_get_modules_pid(State) ->
  