anchor.diff:      {ok, S};
   try_to_queue_up_pieces(S) ->
       PiecesToQueue = ?BASE_QUEUE_LEVEL - sets:size(S#state.remote_request_set),
  +    error_logger:info_msg("Pieces to queue: ~p~n", [PiecesToQueue]),
       case queue_up_requests(S, PiecesToQueue) of
   	{ok, NS} ->
  +	    error_logger:info_msg("Fully queued~n"),
   	    {ok, NS};
   	{partially_queued, NS, Left, not_interested}
   	  when Left == ?BASE_QUEUE_LEVEL ->
  +	    error_logger:info_msg("Partially queued, not interested~n"),
   	    % Out of pieces to give him
   	    torrent_peer_send:not_interested(S#state.send_pid),
   	    {ok, NS#state{local_interested = false}};
   	{partially_queued, NS, _Left, not_interested} ->
  +	    error_logger:info_msg("Partially queued~n"),
   	    % We still have some pieces in the queue
   	    {ok, NS}
       end.
  
positive.code:     end;
  handle_message({piece, Index, Offset, Data}, S) ->
      Len = size(Data),
      torrent_state:downloaded_data(S#state.state_pid, Len),
      torrent_peer_master:downloaded_data(S#state.master_pid, Len),
      case handle_got_chunk(Index, Offset, Data, Len, S) of
  
negative.code: 	    {ok, S#state{piece_set = PieceSet}}
      end;
  handle_message({bitfield, BitField}, S) ->
      error_logger:info_msg("Got Bitfield~n"),
      case sets:size(S#state.piece_set) of
  	0 ->
  	    Size = torrent_state:num_pieces(S#state.state_pid),
  