--- rpl/src/evaluation.c	2014/07/17 08:07:17	1.84
+++ rpl/src/evaluation.c	2015/07/21 12:52:46	1.93
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.19
-  Copyright (C) 1989-2014 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.22
+  Copyright (C) 1989-2015 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -758,18 +758,8 @@ evaluation(struct_processus *s_etat_proc
 								(*s_etat_processus)
 								.evaluation_expression_compilee;
 
-						if (((*(*s_etat_processus).pointeur_variable_courante)
-								.origine == 'E') && ((*(*s_etat_processus)
-								.pointeur_variable_courante).niveau == 0))
-						{
-							(*s_etat_processus).evaluation_expression_compilee
-									= 'Y';
-						}
-						else
-						{
-							(*s_etat_processus).evaluation_expression_compilee
-									= 'N';
-						}
+						(*s_etat_processus).evaluation_expression_compilee
+								= 'Y';
 
 						analyse(s_etat_processus, (*((struct_fonction *)
 								(*(*l_element_courant).donnee).objet))
@@ -3666,7 +3656,7 @@ evaluation(struct_processus *s_etat_proc
 								.evaluation_expression_compilee;
 
 						(*s_etat_processus).evaluation_expression_compilee
-								= 'N';
+								= 'Y';
 
 						if (evaluation(s_etat_processus, (*l_element_courant)
 								.donnee, type_evaluation) == d_erreur)