--- rpl/src/rpl.c	2010/03/04 10:09:31	1.9
+++ rpl/src/rpl.c	2010/03/06 18:29:07	1.12
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.11
+  RPL/2 (R) version 4.0.12
   Copyright (C) 1989-2010 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -31,7 +31,7 @@
 */
 
 int
-rplinit(int argc, char *argv[], unsigned char ***resultats)
+rplinit(int argc, char *argv[], unsigned char ***resultats, char *rpl_home)
 {
 #	include								"copyright.conv.h"
 #	include								"licence.conv.h"
@@ -126,6 +126,8 @@ rplinit(int argc, char *argv[], unsigned
 	(*s_etat_processus).erreur_systeme = d_es;
 	(*s_etat_processus).erreur_execution = d_ex;
 
+	(*s_etat_processus).rpl_home = rpl_home;
+
 	insertion_thread(s_etat_processus, d_vrai);
 
 	pthread_mutexattr_init(&attributs_mutex);
@@ -3188,7 +3190,17 @@ rplinit(int argc, char *argv[], unsigned
 						fclose((*((struct_descripteur_fichier *)
 								(*((struct_liste_chainee *)
 								l_element_courant)).donnee))
-								.descripteur);
+								.descripteur_c);
+
+						if ((*((struct_descripteur_fichier *)
+								(*((struct_liste_chainee *)
+								l_element_courant)).donnee)).type != 'C')
+						{
+							sqlite3_close((*((struct_descripteur_fichier *)
+									(*((struct_liste_chainee *)
+									l_element_courant)).donnee))
+									.descripteur_sqlite);
+						}
 
 						if ((*((struct_descripteur_fichier *)
 								(*((struct_liste_chainee *)