--- rpl/src/types.c	2014/07/17 08:07:27	1.66
+++ rpl/src/types.c	2015/06/15 11:37:53	1.75
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.19
-  Copyright (C) 1989-2014 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.22
+  Copyright (C) 1989-2015 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -143,8 +143,8 @@ recherche_type(struct_processus *s_etat_
 				 */
 
 				if (((*((struct_fonction *) element)).nom_fonction =
-						conversion_majuscule((*s_etat_processus)
-						.instruction_courante)) == NULL)
+						conversion_majuscule(s_etat_processus,
+						(*s_etat_processus).instruction_courante)) == NULL)
 				{
 					(*s_etat_processus).erreur_systeme =
 							d_es_allocation_memoire;
@@ -191,7 +191,7 @@ recherche_type(struct_processus *s_etat_
 		}
 		else
 		{
-			if ((instruction_majuscule = conversion_majuscule(
+			if ((instruction_majuscule = conversion_majuscule(s_etat_processus,
 					(*s_etat_processus).instruction_courante)) == NULL)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
@@ -2666,7 +2666,8 @@ recherche_type(struct_processus *s_etat_
 						 * elle est convertie en majuscules.
 						 */
 
-						tampon = conversion_majuscule((*((struct_fonction *)
+						tampon = conversion_majuscule(s_etat_processus,
+								(*((struct_fonction *)
 								(*(*l_element_courant).donnee).objet))
 								.nom_fonction);
 
@@ -2704,6 +2705,7 @@ recherche_type(struct_processus *s_etat_
 								{
 									if ((fonction_majuscule =
 											conversion_majuscule(
+											s_etat_processus,
 											(*((struct_fonction *)
 											((*l_element_courant_fonctions)
 											.donnee))).nom_fonction)) == NULL)
@@ -2855,6 +2857,7 @@ recherche_type(struct_processus *s_etat_
 				free(l_element_courant_fonctions);
 			}
 
+			(*s_etat_processus).autorisation_empilement_programme = 'Y';
 			break;
 		}
 
@@ -2915,6 +2918,7 @@ recherche_type(struct_processus *s_etat_
 			{
 				// Tableau
 
+				(*s_etat_processus).type_en_cours = TBL;
 				sauvegarde_longueur_definitions_chainees =
 						(*s_etat_processus).longueur_definitions_chainees;
 
@@ -3183,6 +3187,8 @@ recherche_type(struct_processus *s_etat_
 			{
 				// Définition
 
+				(*s_etat_processus).type_en_cours = RPN;
+
 				if (strlen((*s_etat_processus).instruction_courante) < 5)
 				{
 					liberation(s_etat_processus, s_objet);