kc3-lang/kc3

diff --git a/libc3/buf_parse.c b/libc3/buf_parse.c
index 015f502..b01eddb 100644
--- a/libc3/buf_parse.c
+++ b/libc3/buf_parse.c
@@ -879,6 +879,7 @@ sw buf_parse_ident_peek (s_buf *buf, s_ident *dest)
   buf_save_init(buf, &save);
   r = buf_parse_ident(buf, dest);
   buf_save_restore_rpos(buf, &save);
+  buf_save_clean(buf, &save);
   return r;
 }
 
diff --git a/libc3/call.c b/libc3/call.c
index 2632575..3c62d29 100644
--- a/libc3/call.c
+++ b/libc3/call.c
@@ -47,7 +47,6 @@ s_call * call_init_1 (s_call *call, const s8 *p)
 s_call * call_init_op (s_call *call)
 {
   assert(call);
-  assert(op);
   bzero(&call->ident, sizeof(s_ident));
   call->arguments = list_new(list_new(NULL));
   return call;