--- rpl/src/evaluation.c	2010/06/24 09:21:43	1.19
+++ rpl/src/evaluation.c	2010/07/13 13:01:21	1.22
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.16
+  RPL/2 (R) version 4.0.17
   Copyright (C) 1989-2010 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -771,6 +771,8 @@ evaluation(struct_processus *s_etat_proc
 		registre_retour_definition = (*(*s_etat_processus).l_base_pile_systeme)
 				.retour_definition;
 		(*(*s_etat_processus).l_base_pile_systeme).retour_definition = 'N';
+		(*(*s_etat_processus).l_base_pile_systeme).pointeur_adresse_retour =
+				s_objet;
 
 		l_element_courant = (struct_liste_chainee *) (*s_objet).objet;
 		autorisation_empilement_programme = (*s_etat_processus)
@@ -1161,23 +1163,23 @@ evaluation(struct_processus *s_etat_proc
 											{
 												depilement_pile_systeme(
 														s_etat_processus);
+											}
 
-												if ((*s_etat_processus)
-														.erreur_systeme != d_es)
+											if ((*s_etat_processus)
+													.erreur_systeme != d_es)
+											{
+												if (presence_egalite ==
+														d_vrai)
 												{
-													if (presence_egalite ==
-															d_vrai)
-													{
-														liberation(
-															s_etat_processus,
-															s_objet_evalue);
-													}
-
-													(*s_etat_processus)
-														.instruction_courante =
-														instruction_courante;
-													return(d_erreur);
+													liberation(
+														s_etat_processus,
+														s_objet_evalue);
 												}
+
+												(*s_etat_processus)
+													.instruction_courante =
+													instruction_courante;
+												return(d_erreur);
 											}
 										}
 									}