--- rpl/src/rpl.c	2011/05/09 13:52:24	1.58.2.4
+++ rpl/src/rpl.c	2011/04/14 10:32:59	1.61
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.24
+  RPL/2 (R) version 4.1.0.prerelease.0
   Copyright (C) 1989-2011 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -107,10 +107,6 @@ rplinit(int argc, char *argv[], unsigned
 
 	errno = 0;
 
-#	ifdef DMALLOC
-	atexit(dmalloc_shutdown());
-#	endif
-
 #	ifdef DEBUG_MEMOIRE
 	debug_memoire_initialisation();
 #	endif
@@ -1837,16 +1833,7 @@ rplinit(int argc, char *argv[], unsigned
 			(*s_etat_processus).affichage_arguments = 'N';
 			(*s_etat_processus).autorisation_conversion_chaine = 'Y';
 			(*s_etat_processus).autorisation_evaluation_nom = 'Y';
-
-			if (mode_interactif == d_vrai)
-			{
-				(*s_etat_processus).autorisation_nom_implicite = 'Y';
-			}
-			else
-			{
-				(*s_etat_processus).autorisation_nom_implicite = 'N';
-			}
-
+			(*s_etat_processus).autorisation_nom_implicite = 'Y';
 			(*s_etat_processus).autorisation_empilement_programme = 'N';
 			(*s_etat_processus).requete_arret = 'N';
 			(*s_etat_processus).evaluation_forcee = 'N';
@@ -2553,6 +2540,7 @@ rplinit(int argc, char *argv[], unsigned
 					fflush(stdout);
 
 					initialisation_instructions(s_etat_processus);
+					initialisation_variables(s_etat_processus);
 
 					if (arguments != NULL)
 					{