--- rpl/src/sequenceur.c	2012/09/29 17:53:02	1.56
+++ rpl/src/sequenceur.c	2012/10/01 11:05:09	1.58
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.10
-  Copyright (C) 1989-2012 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.11
+  Copyright (C) 1989-2012 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -1244,8 +1244,9 @@ sequenceur(struct_processus *s_etat_proc
 								analyse(s_etat_processus, NULL);
 							}
 							else if ((strcmp(instruction_majuscule, "FOR") == 0)
-									|| (strcmp(instruction_majuscule, "START")
-									== 0))
+									|| (strcmp(instruction_majuscule, "FORALL")
+									== 0) || (strcmp(instruction_majuscule,
+									"START") == 0))
 							{
 								empilement_pile_systeme(s_etat_processus);
 
@@ -1298,9 +1299,11 @@ sequenceur(struct_processus *s_etat_proc
 								 * Libération des compteurs de boucle.
 								 */
 
-								presence_compteur = ((*(*s_etat_processus)
+								presence_compteur = (((*(*s_etat_processus)
+										.l_base_pile_systeme).type_cloture
+										== 'F') || ((*(*s_etat_processus)
 										.l_base_pile_systeme).type_cloture
-										== 'F') ? d_vrai : d_faux;
+										== 'A')) ? d_vrai : d_faux;
 
 								if (((*(*s_etat_processus).l_base_pile_systeme)
 										.type_cloture != 'S') &&