--- rpl/src/instructions_r4.c	2014/07/17 08:07:23	1.89
+++ rpl/src/instructions_r4.c	2015/09/18 13:41:17	1.96
@@ -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.23
+  Copyright (C) 1989-2015 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -1275,6 +1275,7 @@ instruction_read(struct_processus *s_eta
 				indicateur_48 = test_cfsf(s_etat_processus, 48);
 				cf(s_etat_processus, 48);
 
+				(*s_etat_processus).type_en_cours = NON;
 				recherche_type(s_etat_processus);
 				free((*s_etat_processus).instruction_courante);
 
@@ -1330,9 +1331,9 @@ instruction_read(struct_processus *s_eta
 					return;
 				}
 
-				if (alsprintf(&commande, "select data from data where "
-						"id = %lld", (*((integer8 *) (*s_objet_argument_2)
-						.objet))) < 0)
+				if (alsprintf(s_etat_processus, &commande,
+						"select data from data where id = %lld",
+						(*((integer8 *) (*s_objet_argument_2).objet))) < 0)
 				{
 					(*s_etat_processus).erreur_systeme =
 							d_es_allocation_memoire;
@@ -1429,6 +1430,7 @@ instruction_read(struct_processus *s_eta
 				indicateur_48 = test_cfsf(s_etat_processus, 48);
 				cf(s_etat_processus, 48);
 
+				(*s_etat_processus).type_en_cours = NON;
 				recherche_type(s_etat_processus);
 
 				if ((*s_etat_processus).erreur_execution != d_ex)
@@ -1502,8 +1504,8 @@ instruction_read(struct_processus *s_eta
 
 				// Récupération de la position de la clef
 
-				if (alsprintf(&commande, "select key from control "
-						"where id = 1") < 0)
+				if (alsprintf(s_etat_processus, &commande,
+						"select key from control where id = 1") < 0)
 				{
 					(*s_etat_processus).erreur_systeme =
 							d_es_allocation_memoire;
@@ -1576,8 +1578,9 @@ instruction_read(struct_processus *s_eta
 
 				// Récupération de l'identifiant de la clef
 
-				if (alsprintf(&commande, "select id from key where key = "
-						"'{ \"%s\" }'", clef_utf8) < 0)
+				if (alsprintf(s_etat_processus, &commande,
+						"select id from key where key = '{ \"%s\" }'",
+						clef_utf8) < 0)
 				{
 					(*s_etat_processus).erreur_systeme =
 							d_es_allocation_memoire;
@@ -1669,7 +1672,8 @@ instruction_read(struct_processus *s_eta
 
 				free(commande);
 
-				if (alsprintf(&commande, "select data from data where "
+				if (alsprintf(s_etat_processus, &commande,
+						"select data from data where "
 						"key_id = %lld order by sequence asc", id) < 0)
 				{
 					(*s_etat_processus).erreur_systeme =
@@ -1736,6 +1740,7 @@ instruction_read(struct_processus *s_eta
 							indicateur_48 = test_cfsf(s_etat_processus, 48);
 							cf(s_etat_processus, 48);
 
+							(*s_etat_processus).type_en_cours = NON;
 							recherche_type(s_etat_processus);
 
 							if ((*s_etat_processus).erreur_execution != d_ex)
@@ -1798,8 +1803,8 @@ instruction_read(struct_processus *s_eta
 									return;
 								}
 
-								if (alsprintf(&tampon2, "{ \"%s\" }",
-										(*s_etat_processus)
+								if (alsprintf(s_etat_processus, &tampon2,
+										"{ \"%s\" }", (*s_etat_processus)
 										.instruction_courante) < 0)
 								{
 									(*s_etat_processus).erreur_systeme =
@@ -1814,6 +1819,7 @@ instruction_read(struct_processus *s_eta
 								indicateur_48 = test_cfsf(s_etat_processus, 48);
 								cf(s_etat_processus, 48);
 
+								(*s_etat_processus).type_en_cours = NON;
 								recherche_type(s_etat_processus);
 
 								if ((*s_etat_processus).erreur_execution
@@ -2056,7 +2062,8 @@ instruction_read(struct_processus *s_eta
 						return;
 					}
 
-					if ((format_chaine = conversion_majuscule((unsigned char *)
+					if ((format_chaine = conversion_majuscule(
+							s_etat_processus, (unsigned char *)
 							(*(*l_element_courant_format).donnee).objet))
 							== NULL)
 					{
@@ -2755,6 +2762,7 @@ instruction_read(struct_processus *s_eta
 			indicateur_48 = test_cfsf(s_etat_processus, 48);
 			cf(s_etat_processus, 48);
 
+			(*s_etat_processus).type_en_cours = NON;
 			recherche_type(s_etat_processus);
 
 			if ((*s_etat_processus).erreur_execution != d_ex)