diff --git a/pila.c b/pila.c
index be47275..4141ccd 100644
--- a/pila.c
+++ b/pila.c
@@ -418,7 +418,7 @@ next_word_read_get(Pila *st)
 }
 
 void
-exec_nat(Pila *st)
+call_nat(Pila *st)
 {
 	Value waddr_w = pop_val(st);
 	if (waddr_w.kind == VAL_NIL) {
@@ -692,7 +692,7 @@ main(int argc, char **argv)
 		{.name = Sl(">#"), .kind = WORD_NATIVE, .nat = to_number_nat },
 		{.name = Sl("parse-word"), .kind = WORD_NATIVE, .nat = parse_word_nat },
 		{.name = Sl("find-word"), .kind = WORD_NATIVE, .nat = find_word_nat },
-		{.name = Sl("exec"), .kind = WORD_NATIVE, .nat = exec_nat},
+		{.name = Sl("call"), .kind = WORD_NATIVE, .nat = call_nat},
 		{.name = Sl("eval"), .kind = WORD_NATIVE, .nat = eval_nat},
 		{.name = Sl("dup"), .kind = WORD_NATIVE, .nat = dup_nat },
 		{.name = Sl("drop"), .kind = WORD_NATIVE, .nat = drop_nat },