--- rpl/src/types.c	2015/02/19 11:01:30	1.73
+++ rpl/src/types.c	2015/11/26 11:44:44	1.78
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.21
+  RPL/2 (R) version 4.1.24
   Copyright (C) 1989-2015 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -2980,14 +2980,21 @@ recherche_type(struct_processus *s_etat_
 
 				(*(*s_etat_processus).l_base_pile_systeme)
 						.retour_definition = 'Y';
+				(*(*s_etat_processus).l_base_pile_systeme)
+						.origine_routine_evaluation = 'N';
 				(*s_etat_processus).niveau_courant = 0;
 				(*s_etat_processus).autorisation_empilement_programme = 'N';
+
+				tampon = (*s_etat_processus).instruction_courante;
+				autorisation_evaluation_nom = (*s_etat_processus)
+						.autorisation_evaluation_nom;
+				(*s_etat_processus).autorisation_evaluation_nom = 'N';
+
 				registre_mode_execution_programme =
 						(*s_etat_processus).mode_execution_programme;
 				(*s_etat_processus).mode_execution_programme = 'Y';
 				(*s_etat_processus).erreur_scrutation = d_faux;
 
-				tampon = (*s_etat_processus).instruction_courante;
 				nombre_lignes_a_supprimer =
 						(*s_etat_processus).hauteur_pile_operationnelle;
 
@@ -3036,6 +3043,8 @@ recherche_type(struct_processus *s_etat_
 					}
 
 					(*s_etat_processus).instruction_courante = tampon;
+					(*s_etat_processus).autorisation_evaluation_nom =
+							autorisation_evaluation_nom;
 
 					effacement_pile_systeme(s_etat_processus);
 					(*s_etat_processus).l_base_pile_systeme =
@@ -3089,6 +3098,8 @@ recherche_type(struct_processus *s_etat_
 					}
 
 					(*s_etat_processus).instruction_courante = tampon;
+					(*s_etat_processus).autorisation_evaluation_nom =
+							autorisation_evaluation_nom;
 
 					effacement_pile_systeme(s_etat_processus);
 					(*s_etat_processus).l_base_pile_systeme =
@@ -3116,6 +3127,8 @@ recherche_type(struct_processus *s_etat_
 				}
 
 				(*s_etat_processus).instruction_courante = tampon;
+				(*s_etat_processus).autorisation_evaluation_nom =
+						autorisation_evaluation_nom;
 
 				(*s_etat_processus).l_base_pile_systeme = s_sauvegarde_pile;
 				(*s_etat_processus).niveau_courant =