--- rpl/src/rpl.c	2014/07/26 09:58:02	1.161
+++ rpl/src/rpl.c	2015/01/08 14:29:52	1.164
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.19
-  Copyright (C) 1989-2014 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.20
+  Copyright (C) 1989-2015 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -155,6 +155,33 @@ rplinit(int argc, char *argv[], char *en
 		return(EXIT_FAILURE);
 	}
 
+	(*s_etat_processus).erreur_systeme = d_es;
+
+	initialisation_allocateur_buffer(s_etat_processus);
+
+	if ((*s_etat_processus).erreur_systeme != d_es)
+	{
+		erreur = d_es_allocation_memoire;
+
+		if ((langue = getenv("LANG")) != NULL)
+		{
+			if (strncmp(langue, "fr", 2) == 0)
+			{
+				uprintf("+++Système : Mémoire insuffisante\n");
+			}
+			else
+			{
+				uprintf("+++System : Not enough memory\n");
+			}
+		}
+		else
+		{
+			uprintf("+++System : Not enough memory\n");
+		}
+
+		return(EXIT_FAILURE);
+	}
+
 	if ((langue = getenv("LANG")) != NULL)
 	{
 		(*s_etat_processus).langue = (strncmp(langue, "fr", 2) == 0)
@@ -379,11 +406,11 @@ rplinit(int argc, char *argv[], char *en
 
 		if ((*s_etat_processus).langue == 'F')
 		{
-			printf("+++Copyright (C) 1989 à 2013, 2014 BERTRAND Joël\n");
+			printf("+++Copyright (C) 1989 à 2014, 2015 BERTRAND Joël\n");
 		}
 		else
 		{
-			printf("+++Copyright (C) 1989 to 2013, 2014 BERTRAND Joel\n");
+			printf("+++Copyright (C) 1989 to 2014, 2015 BERTRAND Joel\n");
 		}
 	}
 
@@ -5702,6 +5729,7 @@ rplinit(int argc, char *argv[], char *en
 
 	free(arg_exec);
 	arret_thread_signaux(s_etat_processus);
+	liberation_allocateur_buffer(s_etat_processus);
 	free(s_etat_processus);
 
 #	ifdef DEBUG_MEMOIRE