--- rpl/src/instructions_e2.c	2012/09/29 17:53:02	1.39
+++ rpl/src/instructions_e2.c	2013/02/27 17:11:42	1.45
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.10
-  Copyright (C) 1989-2012 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.13
+  Copyright (C) 1989-2013 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -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;
 			}