--- rpl/src/types.c	2010/02/26 19:22:05	1.7
+++ rpl/src/types.c	2010/02/28 14:47:14	1.8
@@ -2734,7 +2734,7 @@ recherche_type(struct_processus *s_etat_
 									(*s_sous_objet).type = FCT;
 							
 									if (((*s_sous_objet).objet = (void *)
-											allocation(s_etat_processus, FCT))
+											malloc(sizeof(struct_fonction)))
 											== NULL)
 									{
 										(*s_etat_processus).erreur_systeme =