anchor.diff:      ErrorMessage = fetch_error_message(BC),
       WarningMessage = fetch_warning_message(BC),
       if
  -	%% Change these casts!
   	ErrorMessage /= none ->
   	    torrent_control:tracker_error_report(ControlPid, ErrorMessage);
   	WarningMessage /= none ->
  
positive.code: %% the current state name StateName is called to handle the event. It is also
  %% called if a timeout occurs.
  %%--------------------------------------------------------------------
  ready_to_contact(contact_tracker_now, S) ->
      {ok, NextContactTime, NS} = contact_tracker(S),
      gen_fsm:start_timer(NextContactTime, may_contact),
      {next_state, ready_to_contact, NS};
  ready_to_contact(may_contact, S) ->
      {next_state, ready_to_contact, S}.
  
  waiting_to_contact(contact_tracker_now, S) ->
      {next_state, waiting_to_contact, S#state{should_contact_tracker = true}};
  waiting_to_contact(may_contact, S) ->
      case S#state.should_contact_tracker of
  	false ->
  	    {next_state, ready_to_contact, S};
  	true ->
  	    {ok, NextContactTime, NS} = contact_tracker(S),
  	    gen_fsm:start_timer(NextContactTime, may_contact),
  	    {next_state, waiting_to_contact,
  	     NS#state{should_contact_tracker = false}}
      end.
  
  
  %%--------------------------------------------------------------------
  %% Function:
  
negative.code: 	        info_hash = none,
  	        peer_id = none,
  		trackerid = none,
  		timer = none,
  	        control_pid = none}).
  
  -define(SERVER, ?MODULE).
  