--- rpl/src/rpl.c	2011/06/27 09:05:01	1.72
+++ rpl/src/rpl.c	2011/07/22 07:38:41	1.74
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.0
+  RPL/2 (R) version 4.1.1
   Copyright (C) 1989-2011 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -46,7 +46,6 @@ rplinit(int argc, char *argv[], unsigned
 
 	int									erreur_historique;
 	int									option_P;
-	int									status;
 
 	logical1							core;
 	logical1							debug;
@@ -2991,8 +2990,6 @@ rplinit(int argc, char *argv[], unsigned
 
 					while((*s_etat_processus).l_base_pile_processus != NULL)
 					{
-						status = 0;
-
 						l_element_courant = (void *)
 								(*s_etat_processus).l_base_pile_processus;