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:                           [ {Name,Pid} || {Name,_Spec,Pid,_Time} <- Children ]
                          end,
                          z_supervisor:which_children(State#state.sup))).
  
  
  %% @doc Get a list of all valid modules
  valid_modules(Context) ->
  
negative.code:     Old  = sets:from_list([Name || {Name, _} <- ChildrenPids]),
      New  = sets:from_list(ValidModules),
      Kill = sets:subtract(Old, New),
      Create = sets:subtract(New, Old),
      
      Running = z_supervisor:running_children(State#state.sup),
      Start = sets:to_list(sets:subtract(New, sets:from_list(Running))),
      {ok, StartList} = dependency_sort(Start),
      
      sets:fold(fun (Module, ok) ->
                z_supervisor:delete_child(ModuleSup, Module),
                ok
  