--- rpl/src/gestion_variables.c	2011/06/24 20:31:36	1.42
+++ rpl/src/gestion_variables.c	2012/10/01 11:05:02	1.57
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.0.prerelease.4
-  Copyright (C) 1989-2011 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.11
+  Copyright (C) 1989-2012 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -1802,6 +1802,7 @@ nombre_variables(struct_processus *s_eta
 	return(n);
 }
 
+
 int
 liste_variables(struct_processus *s_etat_processus,
 		struct_tableau_variables *tableau, int position,
@@ -1845,6 +1846,7 @@ liste_variables(struct_processus *s_etat
 	return(position);
 }
 
+
 /*
 ================================================================================
   Procédure de copie de l'arbre des variables
@@ -1876,6 +1878,9 @@ copie_arbre_variables(struct_processus *
 
 	int								i;
 
+	logical1						niveau_0_traite;
+	logical1						niveau_1_traite;
+
 	struct_liste_chainee			*l_element_courant;
 
 	struct_liste_variables			*l_niveau_courant;
@@ -1888,7 +1893,7 @@ copie_arbre_variables(struct_processus *
 	l_niveau_courant = (*s_etat_processus).l_liste_variables_par_niveau;
 	
 	// Si la variable en tête n'est pas une variable de niveau 0, le niveau
-	// 0, s'il existe est le nivau précédent la valeur courante dans la
+	// 0, s'il existe est le niveau précédent la valeur courante dans la
 	// boucle.
 
 	if ((*((struct_variable *) (*(*l_niveau_courant).liste).donnee)).niveau
@@ -1900,59 +1905,72 @@ copie_arbre_variables(struct_processus *
 	// Les variables de niveaux 0 et 1 sont accessibles en au plus trois
 	// itérations (par construction).
 
+	niveau_0_traite = d_faux;
+	niveau_1_traite = d_faux;
+
 	for(i = 0; i <= 2; i++)
 	{
 		if ((*((struct_variable *) (*(*l_niveau_courant).liste)
 				.donnee)).niveau == 0)
 		{
-			l_element_courant = (*l_niveau_courant).liste;
-
-			while(l_element_courant != NULL)
+			if (niveau_0_traite == d_faux)
 			{
-				if (ajout_variable(s_nouvel_etat_processus,
-						(struct_variable *) (*l_element_courant).donnee)
-						== d_erreur)
+				l_element_courant = (*l_niveau_courant).liste;
+
+				while(l_element_courant != NULL)
 				{
-					return;
+					if (ajout_variable(s_nouvel_etat_processus,
+							(struct_variable *) (*l_element_courant).donnee)
+							== d_erreur)
+					{
+						return;
+					}
+
+					l_element_courant = (*l_element_courant).suivant;
 				}
 
-				l_element_courant = (*l_element_courant).suivant;
+				niveau_0_traite = d_vrai;
 			}
 		}
 		else if ((*((struct_variable *) (*(*l_niveau_courant).liste)
 				.donnee)).niveau == 1)
 		{
-			l_element_courant = (*l_niveau_courant).liste;
-
-			while(l_element_courant != NULL)
+			if (niveau_1_traite == d_faux)
 			{
-				s_variable = (*((struct_variable *)
-						(*l_element_courant).donnee));
+				l_element_courant = (*l_niveau_courant).liste;
 
-				if ((s_variable.nom = strdup((*((struct_variable *)
-						(*l_element_courant).donnee)).nom)) == NULL)
+				while(l_element_courant != NULL)
 				{
-					(*s_nouvel_etat_processus).erreur_systeme =
-							d_es_allocation_memoire;
-					return;
-				}
+					s_variable = (*((struct_variable *)
+							(*l_element_courant).donnee));
 
-				if ((s_variable.objet = copie_objet(s_nouvel_etat_processus,
-						(*((struct_variable *) (*l_element_courant).donnee))
-						.objet, 'P')) == NULL)
-				{
-					(*s_nouvel_etat_processus).erreur_systeme =
-							d_es_allocation_memoire;
-					return;
-				}
+					if ((s_variable.nom = strdup((*((struct_variable *)
+							(*l_element_courant).donnee)).nom)) == NULL)
+					{
+						(*s_nouvel_etat_processus).erreur_systeme =
+								d_es_allocation_memoire;
+						return;
+					}
 
-				if (ajout_variable(s_nouvel_etat_processus, &s_variable)
-						== d_erreur)
-				{
-					return;
+					if ((s_variable.objet = copie_objet(s_nouvel_etat_processus,
+							(*((struct_variable *) (*l_element_courant).donnee))
+							.objet, 'P')) == NULL)
+					{
+						(*s_nouvel_etat_processus).erreur_systeme =
+								d_es_allocation_memoire;
+						return;
+					}
+
+					if (ajout_variable(s_nouvel_etat_processus, &s_variable)
+							== d_erreur)
+					{
+						return;
+					}
+
+					l_element_courant = (*l_element_courant).suivant;
 				}
 
-				l_element_courant = (*l_element_courant).suivant;
+				niveau_1_traite = d_vrai;
 			}
 
 			// Les variables de niveau 0 ayant déjà été copiées, on