diff --git a/src/codegen.c b/src/codegen.c
index 1f7e5c49..d580c9e2 100644
--- a/src/codegen.c
+++ b/src/codegen.c
@@ -206,7 +206,7 @@ pop_scope(analyze_state *state)
   analyze_scope *scope;
 
   scope = state->scope;
-  xh_destory(scope->var_tbl);
+  xh_destroy(scope->var_tbl);
   pic_free(state->pic, scope->vars);
 
   scope = scope->up;
@@ -749,8 +749,8 @@ pop_resolver_scope(resolver_state *state)
   resolver_scope *scope;
 
   scope = state->scope;
-  xh_destory(scope->cvs);
-  xh_destory(scope->lvs);
+  xh_destroy(scope->cvs);
+  xh_destroy(scope->lvs);
 
   scope = scope->up;
   pic_free(state->pic, state->scope);
@@ -1006,7 +1006,7 @@ push_codegen_context(codegen_state *state, pic_value args, pic_value locals, boo
     cxt->cv_tbl[i] = xh_get(vars, pic_symbol_name(pic, pic_sym(pic_list_ref(pic, closes, i))))->val;
   }
 
-  xh_destory(vars);
+  xh_destroy(vars);
 
   cxt->code = (struct pic_code *)pic_calloc(pic, PIC_ISEQ_SIZE, sizeof(struct pic_code));
   cxt->clen = 0;
diff --git a/src/gc.c b/src/gc.c
index 9f65bfb0..35b4e45f 100644
--- a/src/gc.c
+++ b/src/gc.c
@@ -558,7 +558,7 @@ gc_finalize_object(pic_state *pic, struct pic_object *obj)
   }
   case PIC_TT_SENV: {
     struct pic_senv *senv = (struct pic_senv *)obj;
-    xh_destory(senv->tbl);
+    xh_destroy(senv->tbl);
     if (senv->stx)
       pic_free(pic, senv->stx);
     break;
@@ -571,7 +571,7 @@ gc_finalize_object(pic_state *pic, struct pic_object *obj)
   }
   case PIC_TT_LIB: {
     struct pic_lib *lib = (struct pic_lib *)obj;
-    xh_destory(lib->exports);
+    xh_destroy(lib->exports);
     break;
   }
   case PIC_TT_VAR: {