--- rpl/src/formateur_fichiers.c	2010/02/10 10:14:19	1.3
+++ rpl/src/formateur_fichiers.c	2010/03/08 08:34:15	1.6
@@ -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.
@@ -1565,6 +1565,7 @@ formateur_fichier(struct_processus *s_et
 							longueur, longueur_champ, format_sortie, type,
 							longueur_effective, recursivite)) == NULL)
 					{
+						free(chaine);
 						return(NULL);
 					}
 
@@ -5633,14 +5634,7 @@ formateur_fichier_nombre(struct_processu
 			strcat(construction_chaine, tampon);
 			free(tampon);
 
-			if (test_cfsf(s_etat_processus, 48) == d_faux)
-			{
-				strcat(construction_chaine, ",");
-			}
-			else
-			{
-				strcat(construction_chaine, ".");
-			}
+			strcat(construction_chaine, ",");
 
 			tampon = formateur_fichier_reel(s_etat_processus,
 					(void *) &((*((struct_complexe16 *)