--- rpl/src/gestion_objets.c	2011/06/22 12:48:30	1.53
+++ rpl/src/gestion_objets.c	2011/08/30 14:19:28	1.62
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.0.prerelease.2
+  RPL/2 (R) version 4.1.3
   Copyright (C) 1989-2011 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -288,7 +288,7 @@ liberation_maillon(struct_processus *s_e
 ================================================================================
 */
 
-void *
+struct_objet *
 allocation(struct_processus *s_etat_processus, enum t_type type)
 {
 	struct_objet			*s_objet;
@@ -2842,6 +2842,8 @@ copie_etat_processus(struct_processus *s
 	}
 #	endif
 
+	initialisation_contexte_cas(s_etat_processus);
+
 	(*s_nouvel_etat_processus).var_volatile_processus_pere = 0;
 	(*s_nouvel_etat_processus).var_volatile_processus_racine = 0;
 	(*s_nouvel_etat_processus).fichiers_graphiques = NULL;
@@ -3292,6 +3294,7 @@ copie_etat_processus(struct_processus *s
 	 */
 
 	(*s_nouvel_etat_processus).l_base_pile_last = NULL;
+	(*s_nouvel_etat_processus).l_base_pile_undo = NULL;
 	(*s_nouvel_etat_processus).l_base_pile_processus = NULL;
 
 	/*