anchor.diff:  	    case fprof:apply(Module, on, [Message, State]) of
   		unknown_event ->
   		    {NewState, NewComponentState} = 
  -			handle_unknown_event(Message, State, 
  +			handle_unknown_event(Module, Message, State, 
   					     {Options, Slowest}),
   		    loop(Module, NewState, NewComponentState);
   		kill ->
  
positive.code: 		    loop(Module, State, {Options, Slowest});
  		unknown_event ->
  		    {NewState, NewComponentState} =
  			handle_unknown_event(Message, State,
  					     {Options, Slowest}),
  		    loop(Module, NewState, NewComponentState);
  		kill ->
  
negative.code: 	    end
      end.
  
  handle_unknown_event(Module, UnknownMessage, State, ComponentState) ->
      io:format("unknown message in ~p: ~p~n", [Module, UnknownMessage]),
      {State, ComponentState}.
  