anchor.diff:      end,
       {ok, RequestTime}.
   
  -perform_get_request(Url, InfoHash, PeerId, Status, Event) ->
  -    NewUrl = build_tracker_url(Url, Status, InfoHash, PeerId, Event),
  +perform_get_request(S, Event) ->
  +    NewUrl = build_tracker_url(S, Event),
       case http:request(NewUrl) of
   	{ok, {{_, 200, _}, _, Body}} ->
   	    {ok, Body}
       end.
   
  -build_tracker_url(BaseUrl, TrackerRequest, IHash, PrId, Evt) ->
  -    %% TODO: Use io_lib:format for this!
  -    InfoHash = lists:concat(["info_hash=", IHash]),
  -    PeerId   = lists:concat(["peer_id=", PrId]),
  -    %% Ignore port for now
  -    Uploaded = lists:concat(["uploaded=",
  -			     TrackerRequest#tracker_request.uploaded]),
  -    Downloaded = lists:concat(["downloaded=",
  -			       TrackerRequest#tracker_request.downloaded]),
  -    Left = lists:concat(["left=", TrackerRequest#tracker_request.left]),
  -    Event = case Evt of
  -		none -> "";
  -		E -> lists:concat(["&event=", E])
  -	    end,
  -    lists:concat([BaseUrl, "?",
  -		  InfoHash, "&",
  -		  PeerId, "&",
  -		  Uploaded, "&",
  -		  Downloaded, "&",
  -		  Left, %% The Event adds this itself.
  -		  Event]).
  +url_format_event(Event) ->
  +    case Event of
  +	none ->
  +	    "";
  +	E -> lists:concat(["&event=", E])
  +    end.
  +
  +build_tracker_url(S, Event) ->
  +    {ok, Downloaded, Uploaded, Left, Port} =
  +	torrent_state:current_state(S#state.state_pid),
  +    io:lib(
  +      "%s?info_hash=%s&peer_id=%s&uploaded=%B&downloaded=%B&left=%B&port=%B%s",
  +      [S#state.url, S#state.info_hash, S#state.peer_id,
  +       Uploaded, Downloaded, Left, Port, url_format_event(Event)]).
  
positive.code: 		    RequestTime
  	    end
      end.
  
  build_request_to_send(StatePid) ->
      {data_transfer_amounts, Uploaded, Downloaded, Left} =
  	torrent_state:current_state(StatePid),
      io:format("Building request to send~n"),
      #tracker_request{uploaded = Uploaded,
  		     downloaded = Downloaded,
  		     left = Left}.
  
  % TODO: This doesn't really belong here. Consider moving to bcoding..
  find_in_bcoded(BCoded, Term, Default) ->
  
negative.code: 				  master_pid = MasterPid,
  				  state_pid = StatePid,
  				  url = Url,
  				  info_hash = InfoHash,
  				  peer_id = PeerId}}.
  
  %%--------------------------------------------------------------------
  