--- rpl/src/instructions_c6.c	2012/04/03 13:38:27	1.36
+++ rpl/src/instructions_c6.c	2012/04/03 14:25:22	1.37
@@ -837,7 +837,8 @@ instruction_clrfuse(struct_processus *s_
 */
 
 static inline struct_objet *
-creation_table(struct_liste_chainee *dimensions)
+creation_table(struct_processus *s_etat_processus,
+		struct_liste_chainee *dimensions)
 {
 	struct_objet		*s_table;
 
@@ -878,7 +879,7 @@ creation_table(struct_liste_chainee *dim
 				.nombre_elements; i++)
 		{
 			if (((*((struct_tableau *) (*s_table).objet)).elements[i] =
-					creation_table(dimensions)) == NULL)
+					creation_table(s_etat_processus, dimensions)) == NULL)
 			{
 				return(NULL);
 			}
@@ -964,8 +965,8 @@ instruction_crtab(struct_processus *s_et
 			l_element_courant = (*l_element_courant).suivant;
 		}
 
-		if ((s_objet_resultat =
-				creation_table((*s_objet_argument).objet)) == NULL)
+		if ((s_objet_resultat = creation_table(s_etat_processus,
+					(*s_objet_argument).objet)) == NULL)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 			return;