--- rpl/src/instructions_w1.c	2011/12/05 17:45:01	1.55
+++ rpl/src/instructions_w1.c	2012/06/21 16:07:25	1.63
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.5
-  Copyright (C) 1989-2011 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.9
+  Copyright (C) 1989-2012 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -428,6 +428,7 @@ instruction_write(struct_processus *s_et
 	unsigned char						*chaine_utf8;
 	unsigned char						*clef_utf8;
 	unsigned char						*commande;
+	unsigned char						retour;
 
 	unsigned long						i;
 
@@ -1328,6 +1329,27 @@ instruction_write(struct_processus *s_et
 			{
 				BUG(((*descripteur).type != 'C'), uprintf("Bad filetype !\n"));
 
+				if ((*s_objet_argument_2).type != LST)
+				{
+					liberation(s_etat_processus, s_objet_argument_2);
+					liberation(s_etat_processus, s_objet_argument_1);
+
+					(*s_etat_processus).erreur_execution =
+							d_ex_erreur_type_argument;
+					return;
+				}
+
+				if ((*((struct_liste_chainee *) (*s_objet_argument_2).objet))
+						.donnee == NULL)
+				{
+					liberation(s_etat_processus, s_objet_argument_2);
+					liberation(s_etat_processus, s_objet_argument_1);
+
+					(*s_etat_processus).erreur_execution =
+							d_ex_erreur_type_argument;
+					return;
+				}
+
 				if ((*((*((struct_liste_chainee *) (*s_objet_argument_2).objet))
 						.donnee)).type != CHN)
 				{
@@ -1357,6 +1379,19 @@ instruction_write(struct_processus *s_et
 				}
 
 				free(chaine);
+
+				// Le fichier de type FLOW est à accès séquentiel. Il
+				// convient d'ajouter un retour à la ligne pour l'opération
+				// de lecture.
+
+				retour = d_code_retour_chariot;
+
+				if (fwrite(&retour, sizeof(unsigned char), 1,
+						(*descripteur).descripteur_c) != 1)
+				{
+					(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
+					return;
+				}
 			}
 			else
 			{