--- rpl/src/instructions_p4.c	2011/08/09 11:31:34	1.29
+++ rpl/src/instructions_p4.c	2011/09/21 09:09:22	1.30
@@ -254,8 +254,10 @@ instruction_prst(struct_processus *s_eta
 		}
 	}
 
+	routine_recursive = 2;
 	impression_pile(s_etat_processus, (*s_etat_processus).l_base_pile,
 			'E', 1);
+	routine_recursive = 0;
 	return;
 }
 
@@ -333,8 +335,10 @@ instruction_prstc(struct_processus *s_et
 		}
 	}
 
+	routine_recursive = 2;
 	impression_pile(s_etat_processus, (*s_etat_processus).l_base_pile,
 			'C', 1);
+	routine_recursive = 0;
 	return;
 }