--- rpl/src/gestion_niveaux.c	2013/03/26 11:05:28	1.45
+++ rpl/src/gestion_niveaux.c	2013/03/26 16:32:14	1.46
@@ -218,17 +218,9 @@ instruction_vers_niveau_inferieur(struct
 	if (((*s_etat_processus).niveau_recursivite == 0) && ((*s_etat_processus)
 			.gel_liste_variables == d_faux))
 	{
-		// Si une routine ATEXIT est enregistrée, on ne détruit pas les
-		// variables globales pour qu'elles puissent être utilisées depuis
-		// la routine ATEXIT.
-
-		if (!(((*s_etat_processus).at_exit != NULL) &&
-				((*s_etat_processus).niveau_courant == 0)))
+		if (retrait_variables_par_niveau(s_etat_processus) == d_erreur)
 		{
-			if (retrait_variables_par_niveau(s_etat_processus) == d_erreur)
-			{
-				return;
-			}
+			return;
 		}
 	}