--- rpl/src/instructions_w1.c	2013/02/26 19:56:16	1.71
+++ rpl/src/instructions_w1.c	2013/03/01 09:29:30	1.73
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.12
+  RPL/2 (R) version 4.1.13
   Copyright (C) 1989-2013 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -1766,6 +1766,11 @@ instruction_write(struct_processus *s_et
 						return;
 					}
 
+					if (ios == EMSGSIZE)
+					{
+						(*s_etat_processus).erreur_execution =
+								d_ex_taille_message;
+					}
 
 					(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
 					return;