diff --git a/src/alloc.c b/src/alloc.c
index 38b452c..84a1124 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -574,6 +574,9 @@
 # ifdef FEAT_GUI_GTK
     gui_mch_free_all();
 # endif
+# ifdef FEAT_TCL
+    vim_tcl_finalize();
+# endif
     clear_hl_tables();
 
     vim_free(IObuff);