--- rpl/src/instructions_s1.c	2012/10/07 08:18:36	1.57
+++ rpl/src/instructions_s1.c	2012/12/13 16:59:42	1.58
@@ -3219,26 +3219,12 @@ instruction_sto(struct_processus *s_etat
 
 		if ((*(*s_etat_processus).pointeur_variable_courante).objet == NULL)
 		{
-			if (pthread_mutex_lock(&((*(*s_etat_processus)
-					.s_liste_variables_partagees).mutex)) != 0)
-			{
-				(*s_etat_processus).erreur_systeme = d_es_processus;
-				return;
-			}
-
 			if (recherche_variable_partagee(s_etat_processus,
 					(*(*s_etat_processus).pointeur_variable_courante).nom,
 					(*(*s_etat_processus).pointeur_variable_courante)
 					.variable_partagee, (*(*s_etat_processus)
 					.pointeur_variable_courante).origine) == d_faux)
 			{
-				if (pthread_mutex_unlock(&((*(*s_etat_processus)
-						.s_liste_variables_partagees).mutex)) != 0)
-				{
-					(*s_etat_processus).erreur_systeme = d_es_processus;
-					return;
-				}
-
 				if (((*s_etat_processus).autorisation_nom_implicite == 'N') &&
 						((*((struct_nom *) (*s_objet_1).objet)).symbole
 						== d_faux))
@@ -3284,16 +3270,12 @@ instruction_sto(struct_processus *s_etat
 			else
 			{
 				liberation(s_etat_processus, (*(*s_etat_processus)
-						.s_liste_variables_partagees).table
-						[(*(*s_etat_processus).s_liste_variables_partagees)
-						.position_variable].objet);
-
-				(*(*s_etat_processus).s_liste_variables_partagees).table
-						[(*(*s_etat_processus).s_liste_variables_partagees)
-						.position_variable].objet = s_objet_2;
+						.pointeur_variable_partagee_courante).objet);
+				(*(*s_etat_processus).pointeur_variable_partagee_courante)
+						.objet = s_objet_2;
 
 				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;
 					return;