--- rpl/src/instructions_e1.c	2014/07/17 08:07:20	1.50
+++ rpl/src/instructions_e1.c	2015/02/19 11:01:23	1.55
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.19
-  Copyright (C) 1989-2014 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.21
+  Copyright (C) 1989-2015 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -121,6 +121,7 @@ instruction_eval(struct_processus *s_eta
 			sf(s_etat_processus, 31);
 		}
 
+		liberation(s_etat_processus, s_objet);
 		return;
 	}
 
@@ -543,6 +544,7 @@ instruction_else(struct_processus *s_eta
 				}
 
 				if ((instruction_majuscule = conversion_majuscule(
+						s_etat_processus,
 						(*s_etat_processus).instruction_courante)) == NULL)
 				{
 					free((*s_etat_processus).instruction_courante);
@@ -834,6 +836,7 @@ instruction_elseif(struct_processus *s_e
 				}
 
 				if ((instruction_majuscule = conversion_majuscule(
+						s_etat_processus,
 						(*s_etat_processus).instruction_courante)) == NULL)
 				{
 					free((*s_etat_processus).instruction_courante);