--- rpl/src/gestion_pile_systeme.c	2013/03/20 17:11:44	1.56
+++ rpl/src/gestion_pile_systeme.c	2013/03/23 17:57:39	1.58
@@ -495,8 +495,7 @@ trace(struct_processus *s_etat_processus
 		fprintf(flux, "    Level             = %d\n",
 				(*l_element_courant).niveau_courant);
 
-		if (((*l_element_courant).retour_definition == 'Y') ||
-				((*l_element_courant).origine_routine_evaluation == 'Y'))
+		if ((*l_element_courant).retour_definition == 'Y')
 		{
 			fprintf(flux, "    Return            = yes\n");
 
@@ -631,7 +630,8 @@ trace(struct_processus *s_etat_processus
 			fprintf(flux, "    Return            = no\n");
 		}
 
-		if ((*l_element_courant).indice_boucle != NULL)
+		if (((*l_element_courant).indice_boucle != NULL) &&
+				((*l_element_courant).type_cloture != 'A'))
 		{
 			tampon = formateur(s_etat_processus, 24,
 					(*l_element_courant).indice_boucle);