--- rpl/src/evaluation.c	2010/04/20 12:49:18	1.12
+++ rpl/src/evaluation.c	2010/05/16 19:36:19	1.15
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.14
+  RPL/2 (R) version 4.0.15
   Copyright (C) 1989-2010 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -1305,6 +1305,14 @@ evaluation(struct_processus *s_etat_proc
 														instruction_courante;
 													return(d_erreur);
 												}
+
+												if ((*(*s_etat_processus)
+														.l_base_pile_systeme)
+														.retour_definition
+														== 'Y')
+												{
+													break;
+												}
 											}
 											else
 											{
@@ -4816,6 +4824,7 @@ evaluation(struct_processus *s_etat_proc
 
 									(*(*s_etat_processus).l_base_pile_systeme)
 											.niveau_courant =
+											registre_niveau_courant;
 									(*(*s_etat_processus).l_base_pile_systeme)
 											.retour_definition =
 											registre_retour_definition;
@@ -4846,6 +4855,7 @@ evaluation(struct_processus *s_etat_proc
 
 								(*(*s_etat_processus).l_base_pile_systeme)
 										.niveau_courant =
+										registre_niveau_courant;
 								(*(*s_etat_processus).l_base_pile_systeme)
 										.retour_definition =
 									   	registre_retour_definition;