anchor.diff:  	    end
       end.
   
  -handle_unknown_event(UnknownMessage, State, ComponentState) ->
  -    io:format("unknown message: ~p~n", [UnknownMessage]),
  +handle_unknown_event(Module, UnknownMessage, State, ComponentState) ->
  +    io:format("unknown message in ~p: ~p~n", [Module, UnknownMessage]),
       {State, ComponentState}.
  
positive.code: 	    process_dictionary:register_process(InstanceId, Name, self()),
  	    Supervisor ! {started, self()};
  	false ->
  	    Supervisor ! {started, self()},
  	    ok
      end,
      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.
  
  
  
negative.code: 	    case fprof:apply(Module, on, [Message, State]) of
  		unknown_event ->
  		    {NewState, NewComponentState} = 
  			handle_unknown_event(Module, Message, State, 
  					     {Options, Slowest}),
  		    loop(Module, NewState, NewComponentState);
  		kill ->
  