--- rpl/src/types.c	2015/01/05 15:32:25	1.70
+++ rpl/src/types.c	2015/02/19 11:01:30	1.73
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.20
+  RPL/2 (R) version 4.1.21
   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;
 		}