--- rpl/src/evaluation.c	2010/02/05 19:02:56	1.4
+++ rpl/src/evaluation.c	2010/03/04 10:17:48	1.7
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.10
+  RPL/2 (R) version 4.0.12
   Copyright (C) 1989-2010 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -3171,8 +3171,29 @@ evaluation(struct_processus *s_etat_proc
 					registre_test_2 = (*s_etat_processus).test_instruction;
 					(*s_etat_processus).test_instruction = 'N';
 
+					registre_type_evaluation = (test_cfsf(s_etat_processus, 35)
+							== d_vrai) ? 'E' : 'N';
+
+					if (type_evaluation == 'N')
+					{
+						cf(s_etat_processus, 35);
+					}
+					else
+					{
+						sf(s_etat_processus, 35);
+					}
+
 					analyse(s_etat_processus, NULL);
 
+					if (registre_type_evaluation == 'E')
+					{
+						sf(s_etat_processus, 35);
+					}
+					else
+					{
+						cf(s_etat_processus, 35);
+					}
+
 					(*s_etat_processus).test_instruction = registre_test_2;
 
 					if ((*s_etat_processus).erreur_systeme != d_es)