--- rpl/src/instructions_f1.c	2013/12/12 07:26:53	1.61
+++ rpl/src/instructions_f1.c	2014/07/24 14:38:43	1.65
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.17
-  Copyright (C) 1989-2013 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.19
+  Copyright (C) 1989-2014 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -189,6 +189,7 @@ instruction_fleche(struct_processus *s_e
 
 			if ((*s_etat_processus).instruction_valide == 'N')
 			{
+				(*s_etat_processus).type_en_cours = NON;
 				recherche_type(s_etat_processus);
 
 				if ((*s_etat_processus).erreur_execution != d_ex)
@@ -1054,6 +1055,7 @@ instruction_for(struct_processus *s_etat
 			return;
 		}
 
+		(*s_etat_processus).type_en_cours = NON;
 		recherche_type(s_etat_processus);
 
 		free((*s_etat_processus).instruction_courante);