anchor.diff:  
   start_new_peers(IPList, State) ->
       %% Update the PeerList with the new incoming peers
  -    S = case IPList of
  -	    [] ->
  -		State;
  -	    L when is_list(L) ->
  -		PeerList = lists:usort(IPList ++ State#state.available_peers),
  -		State#state { available_peers = PeerList}
  -	end,
  +    PeerList = lists:usort(IPList ++ State#state.available_peers),
  +    S = State#state { available_peers = PeerList},
   
       %% Replenish the connected peers.
       fill_peers(?MAX_PEER_PROCESSES - dict:size(S#state.peer_process_dict), S).
  
positive.code: 	    end
      end.
  
  spawn_new_peer(IP, Port, N, S) ->
      case etorrent_mnesia_operations:is_peer_connected(IP,
  						      Port,
  
negative.code: handle_info({'DOWN', _Ref, process, Pid, _Reason}, S) ->
      % The peer shut down unexpectedly re-add him to the queue in the *back*
      {IP, Port} = etorrent_mnesia_operations:select_peer_ip_port_by_pid(Pid),
      etorrent_mnesia_operations:delete_peer(Pid),
      {noreply, S#state{available_peers =
  		      (S#state.available_peers ++ [{IP, Port}])}};
  handle_info(Info, State) ->
  