--- rpl/src/gestion_niveaux.c	2011/06/27 09:04:55	1.26
+++ rpl/src/gestion_niveaux.c	2019/01/17 09:12:03	1.71
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.0
-  Copyright (C) 1989-2011 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.30
+  Copyright (C) 1989-2019 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -76,12 +76,12 @@ instruction_vers_niveau_superieur(struct
 	{
 		if ((*s_etat_processus).langue == 'F')
 		{
-			printf("[%d] Initialisation du niveau %lu\n", (int) getpid(),
+			printf("[%d] Initialisation du niveau %lld\n", (int) getpid(),
 					(*s_etat_processus).niveau_courant);
 		}
 		else
 		{
-			printf("[%d] Initialization of level %lu\n", (int) getpid(),
+			printf("[%d] Initialization of level %lld\n", (int) getpid(),
 					(*s_etat_processus).niveau_courant);
 		}
 
@@ -126,12 +126,12 @@ instruction_vers_niveau_inferieur(struct
 	{
 		if ((*s_etat_processus).langue == 'F')
 		{
-			printf("[%d] Fermeture du niveau %lu\n", (int) getpid(),
+			printf("[%d] Fermeture du niveau %lld\n", (int) getpid(),
 					(*s_etat_processus).niveau_courant);
 		}
 		else
 		{
-			printf("[%d] Closing of level %lu\n", (int) getpid(),
+			printf("[%d] Closing of level %lld\n", (int) getpid(),
 					(*s_etat_processus).niveau_courant);
 		}
 
@@ -168,12 +168,12 @@ instruction_vers_niveau_inferieur(struct
 				if ((*s_etat_processus).langue == 'F')
 				{
 					printf("[%d] Retour récursif de niveau "
-							"%lu\n", (int) getpid(), (*s_etat_processus)
+							"%lld\n", (int) getpid(), (*s_etat_processus)
 							.niveau_recursivite);
 				}
 				else
 				{
-					printf("[%d] Level %lu recursive "
+					printf("[%d] Level %lld recursive "
 							"return\n", (int) getpid(), (*s_etat_processus)
 							.niveau_recursivite);
 				}
@@ -190,6 +190,9 @@ instruction_vers_niveau_inferieur(struct
 				(*s_etat_processus).position_courante =
 						(*(*s_etat_processus).l_base_pile_systeme)
 						.adresse_retour;
+				(*s_etat_processus).debug_programme =
+						(*(*s_etat_processus).l_base_pile_systeme)
+						.debug_programme;
 
 				if ((*s_etat_processus).profilage == d_vrai)
 				{
@@ -218,7 +221,7 @@ instruction_vers_niveau_inferieur(struct
 	if (((*s_etat_processus).niveau_recursivite == 0) && ((*s_etat_processus)
 			.gel_liste_variables == d_faux))
 	{
-		if (retrait_variable_par_niveau(s_etat_processus) == d_erreur)
+		if (retrait_variables_par_niveau(s_etat_processus) == d_erreur)
 		{
 			return;
 		}