--- rpl/src/instructions_w1.c	2013/03/01 10:24:49	1.74
+++ rpl/src/instructions_w1.c	2013/03/10 17:01:05	1.75
@@ -592,7 +592,7 @@ instruction_write(struct_processus *s_et
 				if ((chaine = formateur_fichier(s_etat_processus,
 						s_objet_argument_2, (*((struct_fichier *)
 						(*s_objet_argument_1).objet)).format, 0, 0, ' ', 'F',
-						&longueur_effective, &recursivite)) == NULL)
+						&longueur_effective, &recursivite, d_vrai)) == NULL)
 				{
 					liberation(s_etat_processus, s_objet_argument_2);
 					liberation(s_etat_processus, s_objet_argument_1);
@@ -674,7 +674,8 @@ instruction_write(struct_processus *s_et
 				if ((chaine = formateur_fichier(s_etat_processus,
 						s_objet_argument_3, (*((struct_fichier *)
 						(*s_objet_argument_1).objet)).format, 0, 0, ' ',
-						'F', &longueur_effective, &recursivite)) == NULL)
+						'F', &longueur_effective, &recursivite, d_vrai))
+						== NULL)
 				{
 					liberation(s_etat_processus, s_objet_argument_3);
 					liberation(s_etat_processus, s_objet_argument_2);
@@ -897,7 +898,8 @@ instruction_write(struct_processus *s_et
 
 				if ((chaine = formateur_fichier(s_etat_processus,
 						s_element, s_format, 0, 0, ' ',
-						'F', &longueur_effective, &recursivite)) == NULL)
+						'F', &longueur_effective, &recursivite, d_vrai))
+						== NULL)
 				{
 					liberation(s_etat_processus, s_element);
 					liberation(s_etat_processus, s_format);
@@ -1211,7 +1213,8 @@ instruction_write(struct_processus *s_et
 
 					if ((chaine = formateur_fichier(s_etat_processus,
 							s_element, s_format, 0, 0, ' ',
-							'F', &longueur_effective, &recursivite)) == NULL)
+							'F', &longueur_effective, &recursivite, d_vrai))
+							== NULL)
 					{
 						free(clef_utf8);
 
@@ -1304,20 +1307,20 @@ instruction_write(struct_processus *s_et
 			 * Fichiers non formatés
 			 */
 
-			if ((chaine = formateur_fichier(s_etat_processus,
-					s_objet_argument_2, (*((struct_fichier *)
-					(*s_objet_argument_1).objet)).format, 0, 0, ' ', 'U',
-					&longueur_effective, &recursivite)) == NULL)
-			{
-				liberation(s_etat_processus, s_objet_argument_2);
-				liberation(s_etat_processus, s_objet_argument_1);
-
-				return;
-			}
-
 			if ((*((struct_fichier *) (*s_objet_argument_1).objet)).acces
 					== 'S')
 			{
+				if ((chaine = formateur_fichier(s_etat_processus,
+						s_objet_argument_2, (*((struct_fichier *)
+						(*s_objet_argument_1).objet)).format, 0, 0, ' ', 'U',
+						&longueur_effective, &recursivite, d_vrai)) == NULL)
+				{
+					liberation(s_etat_processus, s_objet_argument_2);
+					liberation(s_etat_processus, s_objet_argument_1);
+
+					return;
+				}
+
 				BUG(((*descripteur).type != 'C'), uprintf("Bad filetype !\n"));
 
 				if (fseek((*descripteur).descripteur_c, (long) 0, SEEK_END)
@@ -1341,10 +1344,29 @@ instruction_write(struct_processus *s_et
 			else if ((*((struct_fichier *) (*s_objet_argument_1).objet)).acces
 					== 'D')
 			{
+				if ((chaine = formateur_fichier(s_etat_processus,
+						s_objet_argument_2, (*((struct_fichier *)
+						(*s_objet_argument_1).objet)).format, 0, 0, ' ', 'U',
+						&longueur_effective, &recursivite, d_faux)) == NULL)
+				{
+					liberation(s_etat_processus, s_objet_argument_2);
+					liberation(s_etat_processus, s_objet_argument_1);
+
+					return;
+				}
 			}
-			else
+			else // Fichiers indexés
 			{
-				/* Fichiers indexés : panique totale ! */
+				if ((chaine = formateur_fichier(s_etat_processus,
+						s_objet_argument_2, (*((struct_fichier *)
+						(*s_objet_argument_1).objet)).format, 0, 0, ' ', 'U',
+						&longueur_effective, &recursivite, d_faux)) == NULL)
+				{
+					liberation(s_etat_processus, s_objet_argument_2);
+					liberation(s_etat_processus, s_objet_argument_1);
+
+					return;
+				}
 			}
 
 			free(chaine);
@@ -1560,7 +1582,7 @@ instruction_write(struct_processus *s_et
 			if ((chaine = formateur_fichier(s_etat_processus,
 					s_objet_argument_2, (*((struct_socket *)
 					(*s_objet_argument_1).objet)).format, 0, 0, ' ', 'F',
-					&longueur_effective, &recursivite)) == NULL)
+					&longueur_effective, &recursivite, d_faux)) == NULL)
 			{
 				liberation(s_etat_processus, s_objet_argument_2);
 				liberation(s_etat_processus, s_objet_argument_1);