--- rpl/src/evaluation.c	2016/03/09 08:55:27	1.99
+++ rpl/src/evaluation.c	2016/03/09 10:57:41	1.100
@@ -5211,6 +5211,8 @@ evaluation(struct_processus *s_etat_proc
 
 							free(message);
 
+							l_registre_atome = l_element_courant;
+
 							while((*(*s_etat_processus).l_base_pile_systeme)
 									.clause != 'R')
 							{