--- rpl/src/evaluation.c	2010/02/08 19:26:32	1.5
+++ rpl/src/evaluation.c	2010/04/07 13:45:02	1.10
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.10
+  RPL/2 (R) version 4.0.14
   Copyright (C) 1989-2010 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -143,6 +143,17 @@ evaluation(struct_processus *s_etat_proc
 			if (recherche_variable(s_etat_processus, (*((struct_nom *)
 					(*s_objet_tampon).objet)).nom) == d_faux)
 			{
+				if ((*s_etat_processus).autorisation_nom_implicite == 'N')
+				{
+					if ((*((struct_nom *) (*s_objet_tampon).objet)).symbole ==
+							d_faux)
+					{
+						(*s_etat_processus).erreur_execution =
+								d_ex_manque_argument;
+						return(d_erreur);
+					}
+				}
+
 				(*s_etat_processus).erreur_systeme = d_es;
 				presence_variable = d_faux;
 			}
@@ -4381,6 +4392,18 @@ evaluation(struct_processus *s_etat_proc
 					if (recherche_variable(s_etat_processus, (*((struct_nom *)
 							(*s_objet_elementaire).objet)).nom) == d_faux)
 					{
+						if ((*s_etat_processus).autorisation_nom_implicite
+								== 'N')
+						{
+							if ((*((struct_nom *) (*s_objet_elementaire).objet))
+									.symbole == d_faux)
+							{
+								(*s_etat_processus).erreur_systeme =
+										d_es_nom_implicite;
+								return(d_erreur);
+							}
+						}
+
 						(*s_etat_processus).erreur_systeme = d_es;
 						presence_variable = d_faux;
 					}