--- rpl/src/sequenceur.c	2010/03/17 14:14:37	1.8
+++ rpl/src/sequenceur.c	2010/04/07 13:33:23	1.9
@@ -808,6 +808,28 @@ sequenceur(struct_processus *s_etat_proc
 					(*s_etat_processus).erreur_systeme = d_es;
 					recherche_type(s_etat_processus);
 
+					if ((*s_etat_processus).autorisation_nom_implicite == 'N')
+					{
+						if ((*s_etat_processus).l_base_pile == NULL)
+						{
+							(*s_etat_processus).erreur_execution =
+									d_ex_manque_argument;
+							return(d_erreur);
+						}
+
+						if ((*(*(*s_etat_processus).l_base_pile).donnee).type
+								== NOM)
+						{
+							if ((*((struct_nom *) (*(*(*s_etat_processus)
+									.l_base_pile).donnee).objet)).symbole
+									== d_faux)
+							{
+								(*s_etat_processus).erreur_systeme =
+										d_es_nom_implicite;
+							}
+						}
+					}
+
 					// Le séquenceur est appelé depuis la routine d'évaluation
 
 					if ((*s_etat_processus).evaluation_forcee == 'Y')