--- rpl/src/instructions_c4.c	2023/11/24 09:12:57	1.83
+++ rpl/src/instructions_c4.c	2024/10/28 14:56:58	1.86
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.35
-  Copyright (C) 1989-2023 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.36
+  Copyright (C) 1989-2024 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -780,15 +780,6 @@ instruction_close(struct_processus *s_et
 		 * Fermeture du fichier
 		 */
 
-		if (fclose((*descripteur).descripteur_c) != 0)
-		{
-			free(descripteur);
-			liberation(s_etat_processus, s_objet_argument);
-
-			(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
-			return;
-		}
-
 		if ((*descripteur).type != 'C')
 		{
 			if (sqlite3_prepare_v2((*descripteur).descripteur_sqlite,
@@ -830,6 +821,17 @@ instruction_close(struct_processus *s_et
 
 			free(descripteur);
 		}
+		else
+		{
+			if (fclose((*descripteur).descripteur_c) != 0)
+			{
+				free(descripteur);
+				liberation(s_etat_processus, s_objet_argument);
+
+				(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
+				return;
+			}
+		}
 
 		if ((*((struct_fichier *) (*s_objet_argument).objet)).ouverture == 'S')
 		{