--- rpl/src/instructions_c2.c	2014/07/17 08:07:19	1.56
+++ rpl/src/instructions_c2.c	2020/01/10 11:15:44	1.76
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.19
-  Copyright (C) 1989-2014 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.32
+  Copyright (C) 1989-2020 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -125,7 +125,7 @@ instruction_cycle(struct_processus *s_et
 		tampon = (*s_etat_processus).instruction_courante;
 		niveau = 1;
 
-		instruction_majuscule = conversion_majuscule("");
+		instruction_majuscule = conversion_majuscule(s_etat_processus, "");
 
 		while(!(((strcmp(instruction_majuscule, "NEXT") == 0) ||
 				(strcmp(instruction_majuscule, "STEP") == 0)) && (niveau == 0)))
@@ -139,7 +139,7 @@ instruction_cycle(struct_processus *s_et
 				return;
 			}
 
-			instruction_majuscule = conversion_majuscule(
+			instruction_majuscule = conversion_majuscule(s_etat_processus,
 					(*s_etat_processus).instruction_courante);
 
 			if (instruction_majuscule == NULL)
@@ -315,6 +315,7 @@ instruction_cycle(struct_processus *s_et
 				else
 				{
 					if ((fonction == instruction_for) ||
+							(fonction == instruction_forall) ||
 							(fonction == instruction_start))
 					{
 						niveau++;