--- rpl/src/instructions_s8.c	2013/05/21 12:10:12	1.59
+++ rpl/src/instructions_s8.c	2015/09/18 13:41:18	1.71
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.14
-  Copyright (C) 1989-2013 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.23
+  Copyright (C) 1989-2015 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -1520,7 +1520,8 @@ instruction_stop(struct_processus *s_eta
 		}
 		else
 		{
-			if (pthread_mutex_lock(&((*s_etat_processus).mutex)) != 0)
+			if (pthread_mutex_lock(&((*s_etat_processus).mutex_pile_processus))
+					!= 0)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_processus;
 				return;
@@ -1562,8 +1563,8 @@ instruction_stop(struct_processus *s_eta
 					if (pthread_mutex_lock(&((*(*((struct_processus_fils *)
 							(*s_objet).objet)).thread).mutex)) != 0)
 					{
-						if (pthread_mutex_unlock(&((*s_etat_processus).mutex))
-								!= 0)
+						if (pthread_mutex_unlock(&((*s_etat_processus)
+								.mutex_pile_processus)) != 0)
 						{
 							(*s_etat_processus).erreur_systeme = d_es_processus;
 							return;
@@ -1583,8 +1584,8 @@ instruction_stop(struct_processus *s_eta
 					if (pthread_mutex_unlock(&((*(*((struct_processus_fils *)
 							(*s_objet).objet)).thread).mutex)) != 0)
 					{
-						if (pthread_mutex_unlock(&((*s_etat_processus).mutex))
-								!= 0)
+						if (pthread_mutex_unlock(&((*s_etat_processus)
+								.mutex_pile_processus)) != 0)
 						{
 							(*s_etat_processus).erreur_systeme = d_es_processus;
 							return;
@@ -1596,7 +1597,8 @@ instruction_stop(struct_processus *s_eta
 				}
 			}
 
-			if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0)
+			if (pthread_mutex_unlock(&((*s_etat_processus)
+					.mutex_pile_processus)) != 0)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_processus;
 				return;