anchor.diff:  
   
   initial_chunk_server(ID) ->
  -    {ok, Pid} = ?chunk_server:start_link(ID, 1, [], [{0, 2}, {1, 2}, {2, 2}]),
  +    {ok, Pid} = ?chunk_server:start_link(ID, 1, [], [{0, 2}, {1, 2}, {2, 2}], self()),
       true = ?chunk_server:register_peer(ID),
       Pid.
   
  
positive.code: 
  %% @todo: What pid is the chunk recording pid? Control or SendPid?
  %% API
  -export([start_link/4,
           mark_valid/2,
           mark_fetched/4,
           mark_stored/4,
  
negative.code:         {N, Set}
      end || {N, IsValid} <- lists:sort(States)],
      ChunkSets = array:from_orddict(ChunkList),
      
      %% Make it possible to inject the pid of the torrent in tests
      TorrentPid = case InitTorrentPid of
          lookup ->
              {TPid, _} = gproc:await({n, l, {torrent, TorrentID, control}}),
              TPid;
          _ when is_pid(InitTorrentPid) ->
              InitTorrentPid
      end,
  
      InitState = #state{
          torrent_id=TorrentID,
          torrent_pid=TorrentPid,
          chunk_size=ChunkSize,
          pieces_valid=PiecesValid,
          %% All valid pieces are also begun, assigned and stored
  