--- rpl/src/instructions_w1.c	2011/12/05 17:45:01	1.55
+++ rpl/src/instructions_w1.c	2012/03/01 10:14:08	1.59
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.5
-  Copyright (C) 1989-2011 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.7
+  Copyright (C) 1989-2012 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -1328,6 +1328,27 @@ instruction_write(struct_processus *s_et
 			{
 				BUG(((*descripteur).type != 'C'), uprintf("Bad filetype !\n"));
 
+				if ((*s_objet_argument_2).type != LST)
+				{
+					liberation(s_etat_processus, s_objet_argument_2);
+					liberation(s_etat_processus, s_objet_argument_1);
+
+					(*s_etat_processus).erreur_execution =
+							d_ex_erreur_type_argument;
+					return;
+				}
+
+				if ((*((struct_liste_chainee *) (*s_objet_argument_2).objet))
+						.donnee == NULL)
+				{
+					liberation(s_etat_processus, s_objet_argument_2);
+					liberation(s_etat_processus, s_objet_argument_1);
+
+					(*s_etat_processus).erreur_execution =
+							d_ex_erreur_type_argument;
+					return;
+				}
+
 				if ((*((*((struct_liste_chainee *) (*s_objet_argument_2).objet))
 						.donnee)).type != CHN)
 				{