--- rpl/src/evaluation.c	2010/07/12 15:55:00	1.21
+++ rpl/src/evaluation.c	2010/07/14 14:19:33	1.23
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.17
+  RPL/2 (R) version 4.0.18
   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)