--- rpl/src/instructions_p7.c	2010/08/30 14:15:14	1.17
+++ rpl/src/instructions_p7.c	2010/09/11 16:46:19	1.18
@@ -1809,6 +1809,13 @@ instruction_procid(struct_processus *s_e
 			(*s_objet).objet)).thread).mutex), &attributs_mutex);
 	pthread_mutexattr_destroy(&attributs_mutex);
 
+	pthread_mutexattr_init(&attributs_mutex);
+	pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_RECURSIVE);
+	pthread_mutex_init(&((*(*((struct_processus_fils *)
+			(*s_objet).objet)).thread).mutex_nombre_references),
+			&attributs_mutex);
+	pthread_mutexattr_destroy(&attributs_mutex);
+
 	if (empilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
 			s_objet) == d_erreur)
 	{