kc3-lang/kc3

diff --git a/libc3/facts_cursor.c b/libc3/facts_cursor.c
index 634b2af..02982fc 100644
--- a/libc3/facts_cursor.c
+++ b/libc3/facts_cursor.c
@@ -130,11 +130,11 @@ const s_fact ** facts_cursor_next (s_facts_cursor *cursor,
   }
   if (! cursor->node) {
     if (cursor->var_subject)
-      tag_init_var(cursor->var_subject, cursor->var_subject_type);
+      tag_var(cursor->var_subject, cursor->var_subject_type);
     if (cursor->var_predicate)
-      tag_init_var(cursor->var_predicate, cursor->var_predicate_type);
+      tag_var(cursor->var_predicate, cursor->var_predicate_type);
     if (cursor->var_object)
-      tag_init_var(cursor->var_object, cursor->var_object_type);
+      tag_var(cursor->var_object, cursor->var_object_type);
     facts_cursor_lock_unlock(cursor);
     *dest = NULL;
     return dest;
@@ -154,11 +154,11 @@ const s_fact ** facts_cursor_next (s_facts_cursor *cursor,
   return dest;
  ko:
   if (cursor->var_subject)
-    tag_init_var(cursor->var_subject, cursor->var_subject_type);
+    tag_var(cursor->var_subject, cursor->var_subject_type);
   if (cursor->var_predicate)
-    tag_init_var(cursor->var_predicate, cursor->var_predicate_type);
+    tag_var(cursor->var_predicate, cursor->var_predicate_type);
   if (cursor->var_object)
-    tag_init_var(cursor->var_object, cursor->var_object_type);
+    tag_var(cursor->var_object, cursor->var_object_type);
   facts_cursor_lock_unlock(cursor);
   return NULL;
 }
diff --git a/libc3/var.c b/libc3/var.c
index d2d34cd..e2bf728 100644
--- a/libc3/var.c
+++ b/libc3/var.c
@@ -73,8 +73,8 @@ s_tag * var_set (s_tag *var, const s_tag *value)
   assert(var);
   assert(value);
   if (var->type != TAG_VAR) {
-    err_puts("var_set: not a Var");
-    assert(! "var_set: not a Var");
+    err_puts("var_set: not a TAG_VAR");
+    assert(! "var_set: not a TAG_VAR");
     return NULL;
   }
   var_type = var->data.var.type;