--- rpl/src/rpl.c	2011/06/11 09:36:31	1.65
+++ rpl/src/rpl.c	2011/08/09 11:31:36	1.77
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.0.prerelease.0
+  RPL/2 (R) version 4.1.3
   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;
@@ -183,6 +182,8 @@ rplinit(int argc, char *argv[], unsigned
 		(*s_etat_processus).langue = 'E';
 	}
 
+	initialisation_contexte_cas(s_etat_processus);
+
 	(*s_etat_processus).exception = d_ep;
 	(*s_etat_processus).erreur_systeme = d_es;
 	(*s_etat_processus).erreur_execution = d_ex;
@@ -2991,8 +2992,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;
 
@@ -3216,16 +3215,9 @@ rplinit(int argc, char *argv[], unsigned
 					 * le libérer...
 					 */
 
-#if 0
-					for(i = 0; i < (*s_etat_processus).nombre_variables; i++)
-					{
-						liberation(s_etat_processus,
-								(*s_etat_processus).s_liste_variables[i].objet);
-						free((*s_etat_processus).s_liste_variables[i].nom);
-					}
-
-					free((*s_etat_processus).s_liste_variables);
-#endif
+					liberation_arbre_variables(s_etat_processus,
+							(*s_etat_processus).s_arbre_variables, d_vrai);
+					free((*s_etat_processus).pointeurs_caracteres_variables);
 
 					for(i = 0; i < (*s_etat_processus)
 							.nombre_variables_statiques; i++)
@@ -3626,6 +3618,8 @@ rplinit(int argc, char *argv[], unsigned
 #	undef return
 #	endif
 
+	liberation_contexte_cas(s_etat_processus);
+
 	free((*s_etat_processus).chemin_fichiers_temporaires);
 	free(s_etat_processus);