--- rpl/src/rpl.c	2013/03/27 09:14:51	1.139
+++ rpl/src/rpl.c	2013/05/23 12:45:08	1.144
@@ -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)
 						{
@@ -5675,8 +5678,6 @@ rplinit(int argc, char *argv[], char *en
 							}
 						}
 
-						pthread_mutex_unlock(&((*s_etat_processus).mutex));
-
 						if ((*s_etat_processus)
 								.nombre_interruptions_non_affectees != 0)
 						{
@@ -5684,6 +5685,7 @@ rplinit(int argc, char *argv[], char *en
 									s_etat_processus);
 						}
 
+						pthread_mutex_unlock(&((*s_etat_processus).mutex));
 						nanosleep(&attente, NULL);
 						scrutation_interruptions(s_etat_processus);
 						pthread_mutex_lock(&((*s_etat_processus).mutex));