--- rpl/src/evaluation.c	2010/02/05 19:02:56	1.4
+++ rpl/src/evaluation.c	2010/02/08 19:26:32	1.5
@@ -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)