kc3-lang/kc3

diff --git a/libc3/env.c b/libc3/env.c
index 558e097..cd54918 100644
--- a/libc3/env.c
+++ b/libc3/env.c
@@ -921,7 +921,7 @@ bool env_eval_equal_tag (s_env *env, bool macro, const s_tag *a,
       tag_init_copy(dest, b);
     else
       env_eval_tag(env, b, dest);
-    frame_binding_new(env->frame, a->data.ident.sym, dest);
+    frame_binding_new(env->frame->next, a->data.ident.sym, dest);
     return true;
   }
   if (is_unbound_b) {
@@ -929,7 +929,7 @@ bool env_eval_equal_tag (s_env *env, bool macro, const s_tag *a,
       tag_init_copy(dest, a);
     else
       env_eval_tag(env, a, dest);
-    frame_binding_new(env->frame, b->data.ident.sym, dest);
+    frame_binding_new(env->frame->next, b->data.ident.sym, dest);
     return true;
   }
   if (! macro &&