--- rpl/src/types.c	2017/06/29 14:54:42	1.85
+++ rpl/src/types.c	2017/06/30 13:11:26	1.86
@@ -119,7 +119,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 +283,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)