1 files changed, 4 insertions, 0 deletions
diff --git a/lib/pile.c b/lib/pile.c
index 702f22d..5b98ef4 100644
--- a/lib/pile.c
+++ b/lib/pile.c
@@ -150,6 +150,7 @@ void act_pile(int func)
 {
 	pile_elem operande1, operande2;
 	char buf[50];
+	char valid;
 
 	sprintf(buf, _("Calling act_pile(%i)"), func);
 	pushcontext(buf);
@@ -269,6 +270,9 @@ void act_pile(int func)
 		operande2 = pop_pile(1);
 		if ((operande1.type == T_POLY) && (operande2.type == T_STRING)) {
 			if (operande2.label) {
+				NomVarToVar(operande2.label, variables, &valid);
+				if (valid)
+					SupprimerDansTab(&variables,operande2.label);
 				InsererVarDansTab(&variables, CreerElement(operande2.label, (void *) operande1.poly));
 				free(operande2.label);
 			} else {