--- rpl/src/instructions_r4.c	2010/03/08 16:44:10	1.8
+++ rpl/src/instructions_r4.c	2010/04/07 13:45:08	1.11
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.12
+  RPL/2 (R) version 4.0.14
   Copyright (C) 1989-2010 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -1301,7 +1301,6 @@ instruction_read(struct_processus *s_eta
 					(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
 					return;
 				}
-
 				
 				switch(sqlite3_step(ppStmt))
 				{
@@ -1801,6 +1800,7 @@ instruction_read(struct_processus *s_eta
 				}
 
 				l_element_courant = NULL;
+				l_element_inclus = NULL;
 
 				for(element--; element > 0; element--)
 				{