anchor.diff:  %%--------------------------------------------------------------------
   
   internal_kill(Pid) ->
  -	io:format("Killing process ~p now~n", [Pid]),
  +	gen_event:notify(sm_msg_man, {"Killing process ~p now", [Pid]}),
   	exit(Pid, terminated).
   
   %% END
  
positive.code: %% Description: Handling all non call/cast messages
  %%--------------------------------------------------------------------
  handle_info({'EXIT', Pid, Reason}, State) ->
  	io:format("Received an exit signal from ~p with the reason: ~p~n", [Pid, Reason]),
  	{noreply, State}.
  
  %%--------------------------------------------------------------------
  
negative.code: %%--------------------------------------------------------------------
  init([]) ->
  	process_flag(trap_exit, true),
  	gen_event:notify(sm_msg_man, {"~p starting" ,[?MODULE]}),
  	{ok, #sm_data{}}.
  
  %%--------------------------------------------------------------------
  