diff -uNr -x .cvsignore -x Entries -x Repository -x Root /root/mldonkey/mldonkey-cvs/src/networks/bittorrent/bTTorrent.ml /root/mldonkey/mldonkey/src/networks/bittorrent/bTTorrent.ml
--- src/networks/bittorrent/bTTorrent.ml	2009-10-22 21:50:29.000000000 +0200
+++ src/networks/bittorrent/bTTorrent.ml	2009-10-22 22:11:26.000000000 +0200
@@ -169,7 +169,7 @@
                             announce_list := !next_urls @ !announce_list
                           end
                         else
-                          announce_list := List.hd !next_urls :: !announce_list
+                          announce_list := (try List.hd !next_urls with _ -> "") :: !announce_list
                     | _ ->
                         lprintf_nl "[BT] unknown field in announce list"
                     ) list;
