--- rpl/src/instructions_w1.c	2013/03/11 11:07:25	1.76
+++ rpl/src/instructions_w1.c	2013/03/20 17:11:45	1.78
@@ -390,13 +390,13 @@ instruction_write(struct_processus *s_et
 	integer8							clef;
 	integer8							compteur;
 	integer8							id;
+	integer8							longueur_effective;
 	integer8							ordre;
 
 	logical1							format_degenere;
 	logical1							mise_a_jour;
 
 	long								longueur;
-	long								longueur_effective;
 	long								recursivite;
 
 	sqlite3_stmt						*ppStmt;
@@ -1645,7 +1645,16 @@ instruction_write(struct_processus *s_et
 			 * Sockets non formatées
 			 */
 
-			chaine = NULL;
+			if ((chaine = formateur_fichier(s_etat_processus,
+					s_objet_argument_2, (*((struct_socket *)
+					(*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
 		{