--- rpl/src/instructions_t1.c	2010/07/12 15:55:01	1.10
+++ rpl/src/instructions_t1.c	2010/07/13 09:39:14	1.12
@@ -345,8 +345,7 @@ instruction_then(struct_processus *s_eta
 		return;
 	}
 
-	if (((*s_objet).type == INT) ||
-			((*s_objet).type == REL))
+	if (((*s_objet).type == INT) || ((*s_objet).type == REL))
 	{
 		if ((*s_objet).type == INT)
 		{
@@ -367,8 +366,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
+					== 'X'))
 			{
 				(*(*s_etat_processus).l_base_pile_systeme).clause = 'T';
 			}