--- donkey/donkeyServers.ml     21 Dec 2002 17:28:43 -0000      1.23
+++ donkey/donkeyServers.ml     23 Dec 2002 00:01:58 -0000
@@ -78,12 +78,7 @@
           match s.server_waiting_queries with
             [] ->
               begin
-                List.iter (fun file ->
-                    if file_state file = FileDownloading && 
-                       not (file_enough_sources file) then
-                      s.server_waiting_queries <- 
-                        file :: s.server_waiting_queries
-                ) !current_files;
+               s.server_waiting_queries <- !current_files;
                 if s.server_waiting_queries <> [] then
                   let nqueries = List.length s.server_waiting_queries in
                   iter (min n (nqueries - (n_per_round - n)))