--- rpl/src/instructions_w1.c	2010/08/06 15:33:03	1.21
+++ rpl/src/instructions_w1.c	2010/08/31 09:57:43	1.28
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.18
+  RPL/2 (R) version 4.0.19
   Copyright (C) 1989-2010 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -1482,8 +1482,9 @@ instruction_write(struct_processus *s_et
 					adresse_unix.sun_family = AF_UNIX;
 					strncpy(adresse_unix.sun_path, (*((struct_socket *)
 							(*s_objet_argument_1).objet)).adresse_distante,
-							108);
-					adresse_unix.sun_path[108 - 1] = d_code_fin_chaine;
+							UNIX_PATH_MAX);
+					adresse_unix.sun_path[UNIX_PATH_MAX - 1] =
+							d_code_fin_chaine;
 
 #					ifndef SEMAPHORES_NOMMES
 					if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
@@ -1702,6 +1703,16 @@ instruction_write(struct_processus *s_et
 							}
 						}
 #						else
+						if ((*s_etat_processus).langue == 'F')
+						{
+							printf("+++Attention : Support du protocole"
+									" IPv6 indisponible\n");
+						}
+						else
+						{
+							printf("+++Warning : IPv6 support "
+									"unavailable\n");
+						}
 #						endif
 					}
 					else
@@ -2901,6 +2912,16 @@ instruction_wfsock(struct_processus *s_e
 					(*((struct_socket *) (*s_objet_resultat)
 					.objet)).adresse_distante, ntohs(adresse_ipv6.sin6_port));
 #			else
+			if ((*s_etat_processus).langue == 'F')
+			{
+				printf("+++Attention : Support du protocole"
+						" IPv6 indisponible\n");
+			}
+			else
+			{
+				printf("+++Warning : IPv6 support "
+						"unavailable\n");
+			}
 #			endif
 		}
 		else