--- rpl/src/sequenceur.c	2010/04/07 13:33:23	1.9
+++ rpl/src/sequenceur.c	2010/04/17 18:57:36	1.11
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.13
+  RPL/2 (R) version 4.0.14
   Copyright (C) 1989-2010 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -824,8 +824,22 @@ sequenceur(struct_processus *s_etat_proc
 									.l_base_pile).donnee).objet)).symbole
 									== d_faux)
 							{
-								(*s_etat_processus).erreur_systeme =
-										d_es_nom_implicite;
+								if (depilement(s_etat_processus,
+										&((*s_etat_processus).l_base_pile),
+										&s_objet_evaluation) == d_erreur)
+								{
+									(*s_etat_processus).erreur_execution =
+											d_ex_manque_argument;
+									return(d_erreur);
+								}
+
+								liberation(s_etat_processus,
+										s_objet_evaluation);
+								free((*s_etat_processus).instruction_courante);
+
+								(*s_etat_processus).erreur_execution =
+										d_ex_manque_argument;
+								return(d_erreur);
 							}
 						}
 					}