--- rpl/src/gestion_threads.c	2013/02/26 19:56:13	1.72
+++ rpl/src/gestion_threads.c	2013/03/24 22:06:10	1.75
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.12
+  RPL/2 (R) version 4.1.13
   Copyright (C) 1989-2013 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -69,7 +69,7 @@ lancement_thread(void *argument)
 
 	unsigned int						erreur;
 
-	unsigned long						i;
+	integer8							i;
 
 	attente.tv_sec = 0;
 	attente.tv_nsec = GRANULARITE_us * 1000;
@@ -89,9 +89,8 @@ lancement_thread(void *argument)
 #	endif
 
 	(*s_argument_thread).tid = pthread_self();
-	(*s_argument_thread).thread_actif = d_vrai;
-
 	insertion_thread(s_etat_processus, d_faux);
+	(*s_argument_thread).thread_actif = d_vrai;
 
 	// Envoi d'une donnée pour signaler le démarrage du thread au thread
 	// de surveillance.
@@ -578,7 +577,7 @@ lancement_thread(void *argument)
 				.var_volatile_traitement_retarde_stop;
 		(*s_etat_processus).var_volatile_traitement_retarde_stop = 1;
 
-		for(i = 0; i < (unsigned long) (*(*((struct_processus_fils *)
+		for(i = 0; i < (*(*((struct_processus_fils *)
 				(*(*l_element_courant).donnee).objet)).thread)
 				.nombre_objets_dans_pipe; i++)
 		{