--- rpl/src/instructions_d4.c	2014/04/25 07:37:31	1.56
+++ rpl/src/instructions_d4.c	2019/02/03 14:40:38	1.73
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.18
-  Copyright (C) 1989-2014 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.31
+  Copyright (C) 1989-2019 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -310,9 +310,9 @@ instruction_delete(struct_processus *s_e
 					return;
 				}
 
-				if (alsprintf(&commande, "select count(*) from data where "
-						"id = %lld", (*((integer8 *) (*s_objet_indice).objet)))
-						< 0)
+				if (alsprintf(s_etat_processus, &commande,
+						"select count(*) from data where id = %lld",
+						(*((integer8 *) (*s_objet_indice).objet))) < 0)
 				{
 					(*s_etat_processus).erreur_systeme =
 							d_es_allocation_memoire;
@@ -377,7 +377,8 @@ instruction_delete(struct_processus *s_e
 					return;
 				}
 
-				if (alsprintf(&commande, "delete from data where id = %lld",
+				if (alsprintf(s_etat_processus, &commande,
+						"delete from data where id = %lld",
 						(*((integer8 *) (*s_objet_indice).objet))) < 0)
 				{
 					(*s_etat_processus).erreur_systeme =
@@ -441,8 +442,9 @@ instruction_delete(struct_processus *s_e
 					return;
 				}
 
-				if (alsprintf(&commande, "select id from key where key = "
-						"'{ \"%s\" }'", utf8) < 0)
+				if (alsprintf(s_etat_processus, &commande,
+						"select id from key where key = '{ \"%s\" }'", utf8)
+						< 0)
 				{
 					(*s_etat_processus).erreur_systeme =
 							d_es_allocation_memoire;
@@ -534,8 +536,9 @@ instruction_delete(struct_processus *s_e
 
 				free(commande);
 
-				if (alsprintf(&commande, "delete from data where key_id = %lld",
-						lecture_i64) < 0)
+				if (alsprintf(s_etat_processus, &commande,
+						"delete from data where key_id = %lld", lecture_i64)
+						< 0)
 				{
 					(*s_etat_processus).erreur_systeme =
 							d_es_allocation_memoire;
@@ -565,8 +568,8 @@ instruction_delete(struct_processus *s_e
 
 				free(commande);
 
-				if (alsprintf(&commande, "delete from key where id = %lld",
-						lecture_i64) < 0)
+				if (alsprintf(s_etat_processus, &commande,
+						"delete from key where id = %lld", lecture_i64) < 0)
 				{
 					(*s_etat_processus).erreur_systeme =
 							d_es_allocation_memoire;