--- rpl/src/evaluation.c	2010/06/24 09:21:43	1.19
+++ rpl/src/evaluation.c	2010/07/12 15:55:00	1.21
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.16
+  RPL/2 (R) version 4.0.17
   Copyright (C) 1989-2010 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -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);
 											}
 										}
 									}