--- rpl/src/instructions_t1.c	2010/07/13 08:59:20	1.11
+++ 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)
 		{
@@ -369,7 +368,7 @@ instruction_then(struct_processus *s_eta
 
 			if (((*(*s_etat_processus).l_base_pile_systeme).clause ==
 					'I') || ((*(*s_etat_processus).l_base_pile_systeme).clause
-					== 'R'))
+					== 'X'))
 			{
 				(*(*s_etat_processus).l_base_pile_systeme).clause = 'T';
 			}