anchor.diff:  	shutdown ->
   	    {stop, shutdown, S};
   	R ->
  -	    {ok, {_, _, PeerId}} = dict:fetch(Pid, S#state.peer_process_dict),
  +	    {_, _, PeerId} = dict:fetch(Pid, S#state.peer_process_dict),
   	    Bad = dict:update(PeerId, fun(L) -> [R | L] end,
   			      [R], S#state.bad_peers),
   	    {ok, NS} = start_new_peers(S#state{peer_process_dict = D,
  
positive.code: %%====================================================================
  %% API
  %%====================================================================
  start_link(OurPeerId) ->
      gen_server:start_link(?MODULE, [OurPeerId], []).
  
  add_peers(Pid, IPList) ->
      gen_server:cast(Pid, {add_peers, IPList}).
  
negative.code: 	true ->
  	    fill_peers(N, S);
  	false ->
  	    {ok, Pid} = torrent_peer:start_link(IP, Port,
  						PeerId, S#state.info_hash),
  	    sys:trace(Pid, true),
  	    torrent_peer:connect(Pid, S#state.our_peer_id),
  	    D = dict:store(Pid, {IP, Port, PeerId}, S#state.peer_process_dict),
  	    fill_peers(N-1, S#state{ peer_process_dict = D})
      end.
  