--- rpl/src/instructions_d5.c	2010/03/04 10:17:50	1.6
+++ rpl/src/instructions_d5.c	2010/04/07 13:45:05	1.9
@@ -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.
@@ -1760,7 +1760,14 @@ instruction_detach(struct_processus *s_e
 			l_element_suivant = (*l_element_courant).suivant;
 
 			fclose((*((struct_descripteur_fichier *)
-					(*l_element_courant).donnee)).descripteur);
+					(*l_element_courant).donnee)).descripteur_c);
+
+			if ((*((struct_descripteur_fichier *)
+					(*l_element_courant).donnee)).type != 'C')
+			{
+				sqlite3_close((*((struct_descripteur_fichier *)
+						(*l_element_courant).donnee)).descripteur_sqlite);
+			}
 
 			free((*((struct_descripteur_fichier *) (*l_element_courant)
 					.donnee)).nom);
@@ -1979,7 +1986,14 @@ instruction_detach(struct_processus *s_e
 			l_element_suivant = (*l_element_courant).suivant;
 
 			fclose((*((struct_descripteur_fichier *)
-					(*l_element_courant).donnee)).descripteur);
+					(*l_element_courant).donnee)).descripteur_c);
+
+			if ((*((struct_descripteur_fichier *)
+					(*l_element_courant).donnee)).type != 'C')
+			{
+				sqlite3_close((*((struct_descripteur_fichier *)
+						(*l_element_courant).donnee)).descripteur_sqlite);
+			}
 
 			if (((*((struct_descripteur_fichier *) (*l_element_courant)
 					.donnee)).pid == getpid()) &&