anchor.diff:  %%--------------------------------------------------------------------
   
   internal_kill(Pid) ->
  -	gen_event:notify(sm_msg_man, {"Killing process ~p now", [Pid]}),
  +	log("Killing process ~p now", [Pid]),
   	exit(Pid, terminated).
  +
  +log(Msg, Args) ->
  +	gen_event:notify(sm_msg_man, {Msg, Args}).
   
   %% END
   	
  
positive.code: %%--------------------------------------------------------------------
  init([]) ->
  	process_flag(trap_exit, true),
  	gen_event:notify(sm_msg_man, {"~p starting" ,[?MODULE]}),
  	{ok, #sm_data{}}.
  
  %%--------------------------------------------------------------------
  
negative.code: %% Description: Handling call messages
  %%--------------------------------------------------------------------
  handle_call({new_P, Mod, Func, Args}, _From, State) ->
  	log("Creating new Process from module ~p", [Mod]),
  	Pid = spawn_link(Mod, Func, Args),
  	log("Adding new process ~p", [Pid]),
  
  	NewProcesses = [Pid|State#sm_data.processes],
  	NewState = State#sm_data{processes = NewProcesses},
  