--- rpl/src/instructions_s8.c	2013/12/03 09:36:15	1.63
+++ rpl/src/instructions_s8.c	2016/03/08 14:20:31	1.74
@@ -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.25
+  Copyright (C) 1989-2016 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -887,14 +887,10 @@ instruction_sqlquery(struct_processus *s
 						.descripteur.mysql);
 			}
 
-			if (presence_resultat == d_vrai)
+			if (empilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
+					s_objet_resultat) == d_erreur)
 			{
-				if (empilement(s_etat_processus,
-						&((*s_etat_processus).l_base_pile),
-						s_objet_resultat) == d_erreur)
-				{
-					return;
-				}
+				return;
 			}
 
 #			else
@@ -1224,30 +1220,25 @@ instruction_sqlquery(struct_processus *s
 			attente.tv_sec = 0;
 			attente.tv_nsec = GRANULARITE_us * 1000;
 
+			if ((s_objet_resultat =
+					allocation(s_etat_processus, LST)) == NULL)
+			{
+				(*s_etat_processus).erreur_systeme =
+						d_es_allocation_memoire;
+				return;
+			}
+
+			// Création d'une liste vide
+
+			(*s_objet_resultat).objet = NULL;
+			l_element_courant = (*s_objet_resultat).objet;
+
 			do
 			{
 				switch(ios = sqlite3_step(ppStmt))
 				{
 					case SQLITE_ROW:
 					{
-						if (s_objet_resultat == NULL)
-						{
-							if ((s_objet_resultat =
-									allocation(s_etat_processus, LST)) == NULL)
-							{
-								(*s_etat_processus).erreur_systeme =
-										d_es_allocation_memoire;
-								return;
-							}
-
-							presence_resultat = d_vrai;
-
-							// Création d'une liste vide
-
-							(*s_objet_resultat).objet = NULL;
-							l_element_courant = (*s_objet_resultat).objet;
-						}
-
 						// Ajout d'une liste au bout de la liste
 						// contenant les lignes
 
@@ -1417,13 +1408,10 @@ instruction_sqlquery(struct_processus *s
 						.descripteur.sqlite);
 			}
 
-			if (presence_resultat == d_vrai)
+			if (empilement(s_etat_processus, &((*s_etat_processus)
+					.l_base_pile), s_objet_resultat) == d_erreur)
 			{
-				if (empilement(s_etat_processus, &((*s_etat_processus)
-						.l_base_pile), s_objet_resultat) == d_erreur)
-				{
-					return;
-				}
+				return;
 			}
 		}
 		else