--- rpl/src/instructions_p4.c	2011/06/24 20:31:39	1.25
+++ rpl/src/instructions_p4.c	2012/03/01 10:14:07	1.35
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.0.prerelease.4
-  Copyright (C) 1989-2011 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.7
+  Copyright (C) 1989-2012 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -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;
 }