--- rpl/src/instructions_t1.c	2010/07/12 15:55:01	1.10
+++ rpl/src/instructions_t1.c	2010/07/13 08:59:20	1.11
@@ -367,8 +367,9 @@ instruction_then(struct_processus *s_eta
 			 * THEN et ELSE ou END.
 			 */
 
-			if ((*(*s_etat_processus).l_base_pile_systeme).clause !=
-					'K')
+			if (((*(*s_etat_processus).l_base_pile_systeme).clause ==
+					'I') || ((*(*s_etat_processus).l_base_pile_systeme).clause
+					== 'R'))
 			{
 				(*(*s_etat_processus).l_base_pile_systeme).clause = 'T';
 			}