anchor.diff:  %% Returns : {ok, State}
   %%--------------------------------------------------------------------
   init([Parent]) ->
  -    Parent ! {sup_error_logger, init, self()},
       {ok, #state{parent = Parent,
   		stack = []
   	       }}.
  
positive.code: %%--------------------------------------------------------------------
  %% Function: start()
  %% Descrip.: Tell error_logger to add this handler.
  %% Returns : {ok, Pid}       |
  %%           {error, Reason}
  %%           Pid    = pid()
  %%           Reason = string()
  %%--------------------------------------------------------------------
  start() ->
      error_logger:add_report_handler(?MODULE, [self()]),
      receive
  	{sup_error_logger, init, Pid} ->
  	    {ok, Pid}
      after
  	1000 ->
  	    io:format("ERROR: Supervisor error handler failed to start~n~n"),
  	    {error, "Supervisor error handler failed to start"}
      end.
      
  %%====================================================================
  %% Behaviour functions - gen_event callbacks
  %%====================================================================
  
negative.code: 	 {started, ChildInfo}
  	] ->
  	    Descr = describe_started_child(ChildInfo),
  	    NewStack =
  		case State#state.stack of
  		    [A, B, C, D | _] ->
  			[Descr, A, B, C, D];
  