--- rpl/src/instructions_e2.c	2013/02/26 19:56:14	1.44
+++ rpl/src/instructions_e2.c	2013/02/28 12:41:27	1.46
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.12
+  RPL/2 (R) version 4.1.13
   Copyright (C) 1989-2013 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -1323,6 +1323,7 @@ instruction_exit(struct_processus *s_eta
 						(strcmp(instruction_majuscule, "DO") == 0) ||
 						(strcmp(instruction_majuscule, "WHILE") == 0) ||
 						(strcmp(instruction_majuscule, "FOR") == 0) ||
+						(strcmp(instruction_majuscule, "FORALL") == 0) ||
 						(strcmp(instruction_majuscule, "START") == 0) ||
 						(strcmp(instruction_majuscule, "SELECT") == 0)
 						|| (strcmp(instruction_majuscule, "CRITICAL") == 0)
@@ -1336,7 +1337,8 @@ instruction_exit(struct_processus *s_eta
 					else
 					{
 						if ((strcmp(instruction_majuscule, "FOR") == 0) ||
-								(strcmp(instruction_majuscule, "START")
+								(strcmp(instruction_majuscule, "FORALL") == 0)
+								|| (strcmp(instruction_majuscule, "START")
 								== 0))
 						{
 							niveau++;
@@ -1449,6 +1451,7 @@ instruction_exit(struct_processus *s_eta
 						(strcmp(instruction_majuscule, "DO") == 0) ||
 						(strcmp(instruction_majuscule, "WHILE") == 0) ||
 						(strcmp(instruction_majuscule, "FOR") == 0) ||
+						(strcmp(instruction_majuscule, "FORALL") == 0) ||
 						(strcmp(instruction_majuscule, "START") == 0) ||
 						(strcmp(instruction_majuscule, "SELECT") == 0)
 						|| (strcmp(instruction_majuscule, "CRITICAL") == 0)
@@ -1592,6 +1595,7 @@ instruction_exit(struct_processus *s_eta
 						(fonction == instruction_do) ||
 						(fonction == instruction_while) ||
 						(fonction == instruction_for) ||
+						(fonction == instruction_forall) ||
 						(fonction == instruction_start) ||
 						(fonction == instruction_select) ||
 						(fonction == instruction_case) ||
@@ -1606,6 +1610,7 @@ instruction_exit(struct_processus *s_eta
 					else
 					{
 						if ((fonction == instruction_for) ||
+								(fonction == instruction_forall) ||
 								(fonction == instruction_start))
 						{
 							niveau++;
@@ -1715,6 +1720,7 @@ instruction_exit(struct_processus *s_eta
 						(fonction == instruction_do) ||
 						(fonction == instruction_while) ||
 						(fonction == instruction_for) ||
+						(fonction == instruction_forall) ||
 						(fonction == instruction_start) ||
 						(fonction == instruction_select) ||
 						(fonction == instruction_critical) ||