--- rpl/src/rpl.c	2013/03/27 09:14:51	1.139
+++ rpl/src/rpl.c	2013/05/22 09:05:20	1.143
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.13
+  RPL/2 (R) version 4.1.14
   Copyright (C) 1989-2013 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -3404,6 +3404,7 @@ rplinit(int argc, char *argv[], char *en
 
 			(*s_etat_processus).liste_mutexes = NULL;
 			(*s_etat_processus).sections_critiques = 0;
+			(*s_etat_processus).initialisation_scheduler = d_faux;
 
 			(*s_etat_processus).test_instruction = 'N';
 			(*s_etat_processus).nombre_arguments = 0;
@@ -4905,6 +4906,8 @@ rplinit(int argc, char *argv[], char *en
 							return(EXIT_FAILURE);
 						}
 
+						empilement_pile_systeme(s_etat_processus);
+
 						if (evaluation(s_etat_processus, s_objet, 'E')
 								== d_erreur)
 						{