--- rpl/src/formateur_fichiers.c	2012/04/13 14:12:48	1.41
+++ rpl/src/formateur_fichiers.c	2012/07/05 08:05:50	1.44
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.8
+  RPL/2 (R) version 4.1.9
   Copyright (C) 1989-2012 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -1496,8 +1496,19 @@ formateur_fichier(struct_processus *s_et
 						return(NULL);
 					}
 
-					position_3 = strlen(format_chaine);
-					format_chaine[--position_3] = d_code_fin_chaine;
+					position_3 = strlen(format_chaine) - 1;
+
+					if (format_chaine[position_3] != ')')
+					{
+						free(chaine);
+						free(format_chaine);
+
+						(*s_etat_processus).erreur_execution =
+								d_ex_erreur_format_fichier;
+						return(NULL);
+					}
+
+					format_chaine[position_3] = d_code_fin_chaine;
 
 					position_2 = position_1;