--- rpl/src/evaluation.c	2010/08/06 15:32:58	1.25
+++ rpl/src/evaluation.c	2010/09/23 15:27:35	1.28
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.18
+  RPL/2 (R) version 4.0.20
   Copyright (C) 1989-2010 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -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))