anchor.diff:  		    loop(Module, State, {Options, Slowest});
   		unknown_event ->
   		    {NewState, NewComponentState} =
  -			handle_unknown_event(Message, State,
  +			handle_unknown_event(Module, Message, State,
   					     {Options, Slowest}),
   		    loop(Module, NewState, NewComponentState);
   		kill ->
  
positive.code: 	    end
      end.
  
  handle_unknown_event(UnknownMessage, State, ComponentState) ->
      io:format("unknown message: ~p~n", [UnknownMessage]),
      {State, ComponentState}.
  
negative.code: 	    process_dictionary:register_process(InstanceId, Name, self()),
  	    Supervisor ! {started, self()};
  	false ->
  	    Supervisor ! {started, self()}
      end,
      try
          InitialState = Module:init(Args),
          case lists:member(profile, Options) of
              true ->
                  loop_profile(Module, InitialState, {Options, 0.0});
              false ->
                  loop(Module, InitialState, {Options, 0.0})
          end
      catch
          throw:Term ->
              io:format("exception in init of ~p: ~p~n", [Module, Term]),
              throw(Term);
          exit:Reason ->
              io:format("exception in init of ~p: ~p~n", [Module, Reason]),
              throw(Reason);
          error:Reason ->
              io:format("exception in init of ~p: ~p~n", [Module, {Reason,
                                                                   erlang:get_stacktrace()}]),
              throw(Reason)
      end.
  
  
  