--- rpl/src/instructions_r4.c	2015/01/05 15:32:21	1.92
+++ rpl/src/instructions_r4.c	2015/01/27 14:18:08	1.93
@@ -1331,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;
@@ -1504,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;
@@ -1578,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;
@@ -1671,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 =
@@ -1801,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 =
@@ -2060,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)
 					{