--- rpl/src/instructions_w1.c	2011/12/05 17:45:01	1.55
+++ rpl/src/instructions_w1.c	2011/12/06 13:27:14	1.56
@@ -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)
 				{