--- rpl/src/evaluation.c	2010/08/26 19:07:35	1.26
+++ rpl/src/evaluation.c	2010/09/14 08:30:42	1.27
@@ -5472,11 +5472,23 @@ evaluation(struct_processus *s_etat_proc
 		(*s_etat_processus).instruction_courante = 
 				(*((struct_fonction *) (*s_objet).objet)).nom_fonction;
 
+		registre_type_evaluation = (test_cfsf(s_etat_processus, 35) == d_vrai)
+				? 'E' : 'N';
+		cf(s_etat_processus, 35);
+
 		analyse(s_etat_processus, (*((struct_fonction *)
 				(*s_objet).objet)).fonction);
-
 		(*s_etat_processus).instruction_courante = instruction_courante;
 
+		if (registre_type_evaluation == 'E')
+		{
+			sf(s_etat_processus, 35);
+		}
+		else
+		{
+			cf(s_etat_processus, 35);
+		}
+
 		if (((*s_etat_processus).erreur_systeme != d_es) ||
 				((*s_etat_processus).erreur_execution != d_ex) ||
 				((*s_etat_processus).exception != d_ep))