--- rpl/src/sequenceur.c	2012/10/08 12:27:38	1.60
+++ rpl/src/sequenceur.c	2013/03/06 09:00:26	1.68
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.11
-  Copyright (C) 1989-2012 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.13
+  Copyright (C) 1989-2013 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -604,30 +604,19 @@ sequenceur(struct_processus *s_etat_proc
 							fflush(stdout);
 						}
 
-						if (pthread_mutex_lock(&((*(*s_etat_processus)
-								.s_liste_variables_partagees).mutex)) != 0)
-						{
-							(*s_etat_processus).erreur_systeme =
-									d_es_processus;
-							return(d_erreur);
-						}
-
 						if (recherche_variable_partagee(s_etat_processus,
 								(*(*s_etat_processus)
 								.pointeur_variable_courante).nom,
 								(*(*s_etat_processus)
 								.pointeur_variable_courante).variable_partagee,
-								'P') == d_vrai)
+								'P') != NULL)
 						{
 							// La variable existe.
 
 							if ((s_objet = copie_objet(s_etat_processus,
 									(*(*s_etat_processus)
-									.s_liste_variables_partagees)
-									.table[(*(*s_etat_processus)
-									.s_liste_variables_partagees)
-									.position_variable].objet, 'P'))
-									== NULL)
+									.pointeur_variable_partagee_courante)
+									.objet, 'P')) == NULL)
 							{
 								(*s_etat_processus).erreur_systeme =
 										d_es_allocation_memoire;
@@ -635,8 +624,8 @@ sequenceur(struct_processus *s_etat_proc
 							}
 
 							if (pthread_mutex_unlock(&((*(*s_etat_processus)
-									.s_liste_variables_partagees).mutex))
-									!= 0)
+									.pointeur_variable_partagee_courante)
+									.mutex)) != 0)
 							{
 								(*s_etat_processus).erreur_systeme =
 										d_es_processus;
@@ -655,15 +644,6 @@ sequenceur(struct_processus *s_etat_proc
 						else
 						{
 							// La variable n'existe plus.
-
-							if (pthread_mutex_unlock(&((*(*s_etat_processus)
-									.s_liste_variables_partagees).mutex))
-									!= 0)
-							{
-								(*s_etat_processus).erreur_systeme =
-										d_es_processus;
-								return(d_erreur);
-							}
 						}
 					}