--- rpl/src/formateur_fichiers.c	2014/01/26 18:21:29	1.76
+++ rpl/src/formateur_fichiers.c	2014/07/24 14:38:43	1.79
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.17
+  RPL/2 (R) version 4.1.19
   Copyright (C) 1989-2014 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -234,6 +234,7 @@ formateur_fichier(struct_processus *s_et
 									.instruction_courante[1]
 									== '-')) ? d_vrai : d_faux;
 
+							(*s_etat_processus).type_en_cours = NON;
 							recherche_type(s_etat_processus);
 
 							if ((*s_etat_processus).erreur_execution != d_ex)
@@ -401,6 +402,7 @@ formateur_fichier(struct_processus *s_et
 									"'%s'", (unsigned char *)
 									(*s_sous_objet_1).objet);
 
+							(*s_etat_processus).type_en_cours = NON;
 							recherche_type(s_etat_processus);
 
 							if ((*s_etat_processus).erreur_execution != d_ex)