--- rpl/src/evaluation.c	2012/10/07 08:18:35	1.61
+++ rpl/src/evaluation.c	2012/10/08 11:53:46	1.62
@@ -802,10 +802,30 @@ evaluation(struct_processus *s_etat_proc
 							((*s_etat_processus).erreur_systeme == d_es) &&
 							((*s_etat_processus).exception == d_ep))
 					{
+						registre_evaluation_expression_compilee =
+								(*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';
+						}
+
 						analyse(s_etat_processus, (*((struct_fonction *)
 								(*(*l_element_courant).donnee).objet))
 								.fonction);
 
+						(*s_etat_processus).evaluation_expression_compilee =
+								registre_evaluation_expression_compilee;
+
 						if (type_evaluation == 'I')
 						{
 							(*s_etat_processus).derniere_erreur_evaluation =