--- rpl/src/instructions_r1.c	2013/03/20 22:24:37	1.42
+++ rpl/src/instructions_r1.c	2015/11/26 11:44:38	1.57
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.13
-  Copyright (C) 1989-2013 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.24
+  Copyright (C) 1989-2015 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -596,6 +596,7 @@ instruction_repeat(struct_processus *s_e
 					}
 
 					if ((instruction_majuscule = conversion_majuscule(
+							s_etat_processus,
 							(*s_etat_processus).instruction_courante)) == NULL)
 					{
 						liberation(s_etat_processus, s_objet);
@@ -1231,6 +1232,7 @@ instruction_rnd(struct_processus *s_etat
 			return;
 		}
 
+		(*s_etat_processus).type_en_cours = NON;
 		recherche_type(s_etat_processus);
 
 		free((*s_etat_processus).instruction_courante);