--- rpl/src/evaluation.c	2010/06/24 10:10:40	1.20
+++ rpl/src/evaluation.c	2010/07/12 15:55:00	1.21
@@ -1161,23 +1161,23 @@ evaluation(struct_processus *s_etat_proc
 											{
 												depilement_pile_systeme(
 														s_etat_processus);
+											}
 
-												if ((*s_etat_processus)
-														.erreur_systeme != d_es)
+											if ((*s_etat_processus)
+													.erreur_systeme != d_es)
+											{
+												if (presence_egalite ==
+														d_vrai)
 												{
-													if (presence_egalite ==
-															d_vrai)
-													{
-														liberation(
-															s_etat_processus,
-															s_objet_evalue);
-													}
-
-													(*s_etat_processus)
-														.instruction_courante =
-														instruction_courante;
-													return(d_erreur);
+													liberation(
+														s_etat_processus,
+														s_objet_evalue);
 												}
+
+												(*s_etat_processus)
+													.instruction_courante =
+													instruction_courante;
+												return(d_erreur);
 											}
 										}
 									}