Index: st_stubs.c
===================================================================
--- st_stubs.c	(revision 249)
+++ st_stubs.c	(working copy)
@@ -345,6 +345,7 @@
 static void caml_thread_remove_info(caml_thread_t th)
 {
   if (th->next == th) all_threads = NULL; /* last Caml thread exiting */
+  else if (all_threads == th) all_threads = th->next;
   th->next->prev = th->prev;
   th->prev->next = th->next;
 #ifndef NATIVE_CODE