--- rpl/src/instructions_w1.c	2011/03/18 08:42:57	1.34
+++ rpl/src/instructions_w1.c	2011/05/09 13:52:22	1.34.2.4
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.21
+  RPL/2 (R) version 4.0.24
   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)