--- rpl/src/instructions_w1.c	2011/03/12 15:32:03	1.33
+++ rpl/src/instructions_w1.c	2011/06/21 07:45:27	1.39
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.21
+  RPL/2 (R) version 4.1.0.prerelease.1
   Copyright (C) 1989-2011 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -1413,6 +1413,8 @@ instruction_write(struct_processus *s_et
 			/*
 			 * Sockets non formatées
 			 */
+
+			chaine = NULL;
 		}
 		else
 		{
@@ -1584,6 +1586,8 @@ instruction_write(struct_processus *s_et
 						longueur_effective, 0, (struct sockaddr *)
 						&adresse_unix, sizeof(adresse_unix)) < 0)
 				{
+					ios = errno;
+
 #					ifndef SEMAPHORES_NOMMES
 					while(sem_wait(&((*s_etat_processus)
 							.semaphore_fork)) == -1)
@@ -1600,8 +1604,15 @@ instruction_write(struct_processus *s_et
 						}
 					}
 
-					(*s_etat_processus).erreur_systeme =
-							d_es_erreur_fichier;
+					if ((ios == EPIPE) || (ios == ECONNRESET))
+					{
+						(*s_etat_processus).erreur_execution =
+								d_ex_erreur_acces_fichier;
+						return;
+					}
+
+
+					(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
 					return;
 				}