anchor.diff:      case etorrent_piece_mgr:find_new(Id, PieceSet) of
           none -> none_eligible;
           {P, Pn} when is_integer(Pn) ->
  -	    ok = gen_server:call(?SERVER, {chunkify_piece, {Id, P}}),
  +	    ok = gen_server:call(?SERVER, {chunkify_piece, {Id, P}},
  +				 infinity),
   	    {ok, Pn}
       end.
   
  
positive.code:     Reply = ok,
      {reply, Reply, State}.
  
  %%--------------------------------------------------------------------
  %% Function: handle_cast(Msg, State) -> {noreply, State} |
  %%                                      {noreply, State, Timeout} |
  %%                                      {stop, Reason, State}
  %% Description: Handling cast messages
  %%--------------------------------------------------------------------
  handle_cast({store_chunk, Id, Pid, {Index, Data, Ops}, {Offset, Len}, FSPid}, S) ->
      ok = etorrent_fs:write_chunk(FSPid, {Index, Data, Ops}),
      %% Add the newly fetched data to the fetched list
  
negative.code: %%--------------------------------------------------------------------
  -spec endgame_remove_chunk(pid(), integer(), {integer(), integer(), integer()}) -> ok.
  endgame_remove_chunk(SendPid, Id, {Index, Offset, Len}) ->
      gen_server:call(?SERVER, {endgame_remove_chunk, SendPid, Id, {Index, Offset, Len}},
  		    infinity).
  
  %% @doc Return some chunks for downloading.
  %% @end
  