--- rpl/src/instructions_p4.c	2011/06/22 13:27:02	1.24
+++ rpl/src/instructions_p4.c	2011/09/21 09:09:22	1.30
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.0.prerelease.3
+  RPL/2 (R) version 4.1.3
   Copyright (C) 1989-2011 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;
 }