--- rpl/src/types.c	2012/03/30 14:13:17	1.47
+++ rpl/src/types.c	2012/05/21 17:25:46	1.50
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.7
+  RPL/2 (R) version 4.1.9
   Copyright (C) 1989-2012 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -1461,6 +1461,8 @@ recherche_type(struct_processus *s_etat_
 						}
 						else
 						{
+							liberation(s_etat_processus, s_objet_registre);
+
 							(*s_etat_processus).erreur_systeme = d_es_pile_vide;
 							(*s_etat_processus).traitement_interruptible =
 									registre_interruption;
@@ -2068,6 +2070,9 @@ recherche_type(struct_processus *s_etat_
 							}
 							else
 							{
+								liberation(s_etat_processus,
+										s_objet_registre);
+
 								(*s_etat_processus).erreur_systeme =
 										d_es_pile_vide;
 								(*s_etat_processus).traitement_interruptible =