--- rpl/src/gestion_objets.c	2011/06/22 13:26:58	1.54
+++ rpl/src/gestion_objets.c	2011/09/03 10:31:50	1.64
@@ -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;
@@ -2855,6 +2857,8 @@ copie_etat_processus(struct_processus *s
 	(*s_nouvel_etat_processus).processus_detache = d_faux;
 	(*s_nouvel_etat_processus).evaluation_forcee = 'N';
 
+	(*s_nouvel_etat_processus).compteur_violation_d_acces = 0;
+
 	(*s_nouvel_etat_processus).nombre_objets_envoyes_non_lus = 0;
 	(*s_nouvel_etat_processus).nombre_objets_injectes = 0;
 	(*s_nouvel_etat_processus).presence_fusible = d_faux;