--- rpl/src/types.c	2013/06/21 14:15:57	1.61
+++ rpl/src/types.c	2014/07/26 09:58:02	1.68
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.15
-  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.
 
@@ -2915,6 +2915,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 +3184,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);