--- rpl/src/rpl.c	2011/06/11 09:36:31	1.65
+++ rpl/src/rpl.c	2011/06/21 07:45:28	1.68
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.0.prerelease.0
+  RPL/2 (R) version 4.1.0.prerelease.1
   Copyright (C) 1989-2011 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -3216,16 +3216,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++)