--- rpl/src/types.c	2015/01/27 14:18:10	1.71
+++ rpl/src/types.c	2015/12/13 22:55:24	1.79
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.20
+  RPL/2 (R) version 4.1.24
   Copyright (C) 1989-2015 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -2857,6 +2857,7 @@ recherche_type(struct_processus *s_etat_
 				free(l_element_courant_fonctions);
 			}
 
+			(*s_etat_processus).autorisation_empilement_programme = 'Y';
 			break;
 		}
 
@@ -2979,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;
 
@@ -3035,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 =
@@ -3088,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 =
@@ -3115,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 =