--- rpl/src/instructions_w1.c	2012/12/21 12:09:50	1.70
+++ rpl/src/instructions_w1.c	2013/03/01 09:29:30	1.73
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.12
-  Copyright (C) 1989-2012 Dr. BERTRAND Joël
+  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;