--- rpl/src/instructions_s1.c	2012/10/01 11:05:06	1.55
+++ rpl/src/instructions_s1.c	2012/10/07 08:18:36	1.57
@@ -2916,7 +2916,7 @@ instruction_step(struct_processus *s_eta
 		{
 			(*s_etat_processus).niveau_courant--;
 
-			if (retrait_variable_par_niveau(s_etat_processus) == d_erreur)
+			if (retrait_variables_par_niveau(s_etat_processus) == d_erreur)
 			{
 				return;
 			}
@@ -3239,7 +3239,9 @@ instruction_sto(struct_processus *s_etat
 					return;
 				}
 
-				if ((*s_etat_processus).autorisation_nom_implicite == 'N')
+				if (((*s_etat_processus).autorisation_nom_implicite == 'N') &&
+						((*((struct_nom *) (*s_objet_1).objet)).symbole
+						== d_faux))
 				{
 					liberation(s_etat_processus, s_objet_1);
 					liberation(s_etat_processus, s_objet_2);
@@ -3300,7 +3302,8 @@ instruction_sto(struct_processus *s_etat
 		}
 		else
 		{
-			if ((*s_etat_processus).autorisation_nom_implicite == 'N')
+			if (((*s_etat_processus).autorisation_nom_implicite == 'N') &&
+					((*((struct_nom *) (*s_objet_1).objet)).symbole == d_faux))
 			{
 				if ((*(*s_etat_processus).pointeur_variable_courante)
 						.niveau == 1)
@@ -3327,7 +3330,8 @@ instruction_sto(struct_processus *s_etat
 		 * une variable globale.
 		 */
 
-		if ((*s_etat_processus).autorisation_nom_implicite == 'N')
+		if (((*s_etat_processus).autorisation_nom_implicite == 'N') &&
+				((*((struct_nom *) (*s_objet_1).objet)).symbole == d_faux))
 		{
 			liberation(s_etat_processus, s_objet_1);
 			liberation(s_etat_processus, s_objet_2);