--- rpl/src/instructions_e2.c	2012/10/01 11:05:04	1.40
+++ rpl/src/instructions_e2.c	2012/10/04 15:21:26	1.41
@@ -1846,7 +1846,7 @@ instruction_exit(struct_processus *s_eta
 			(*(*s_etat_processus).l_base_pile_systeme).indice_boucle = NULL;
 			(*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;
 			}