--- rpl/src/types.c	2017/06/29 14:54:42	1.85
+++ rpl/src/types.c	2017/07/02 22:28:20	1.87
@@ -56,8 +56,7 @@ recherche_type(struct_processus *s_etat_
 	integer8					profondeur_initiale;
 	integer8					sauvegarde_niveau_courant;
 	integer8					sauvegarde_longueur_definitions_chainees;
-	integer8					(*__type_new)(struct_processus
-										*s_etat_processus, void **arg);
+	integer8					(*__type_new)(struct_processus *, void **);
 
 	struct_liste_chainee		*l_base_liste_fonctions;
 	struct_liste_chainee		*l_base_liste_decomposition;
@@ -119,7 +118,6 @@ recherche_type(struct_processus *s_etat_
 	(*s_etat_processus).test_instruction = 'Y';
 	(*s_etat_processus).traitement_interruptible = 'N';
 
-uprintf(".%s.\n", (*s_etat_processus).instruction_courante);
 	analyse(s_etat_processus, NULL);
 
 	(*s_etat_processus).test_instruction = registre_test;
@@ -284,6 +282,9 @@ uprintf(".%s.\n", (*s_etat_processus).in
 
 				(*s_objet).objet = element;
 				(*s_objet).type = EXT;
+				(*s_objet).descripteur_bibliotheque =
+						(*((struct_bibliotheque *)
+						(*l_element_courant).donnee)).descripteur;
 
 				if (empilement(s_etat_processus,
 						&((*s_etat_processus).l_base_pile), s_objet)