--- rpl/src/gestion_objets.c	2011/06/22 13:26:58	1.54
+++ rpl/src/gestion_objets.c	2011/08/09 11:31:30	1.61
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.0.prerelease.3
+  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;