--- rpl/src/analyse_notation_algebrique.c	2010/02/10 10:14:18	1.3
+++ rpl/src/analyse_notation_algebrique.c	2010/02/28 14:47:14	1.4
@@ -621,7 +621,7 @@ analyse_algebrique(struct_processus *s_e
 						(*l_element_courant).suivant = (*l_base_liste);
 						(*l_base_liste) = l_element_courant;
 
-						if ((s_fonction = allocation(s_etat_processus, FCT))
+						if ((s_fonction = malloc(sizeof(struct_fonction)))
 								== NULL)
 						{
 							(*s_etat_processus).erreur_systeme =