diff --git a/ChangeLog b/ChangeLog
index c13686d912..38a75ba49e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Wed Mar 20 20:12:35 2002  Nobuyoshi Nakada  <nobu.nakada@nifty.ne.jp>
+
+	* variable.c (rb_const_list): a temporary table must be freed.
+
 Wed Mar 20 19:44:09 2002  Tanaka Akira  <akr@m17n.org>
 
 	* mkconfig.rb: don't touch rbconfig.rb if there is a trouble.
diff --git a/variable.c b/variable.c
index 86a26103a5..e8b8605576 100644
--- a/variable.c
+++ b/variable.c
@@ -1259,6 +1259,7 @@ rb_const_list(data)
     if (!tbl) return rb_ary_new2(0);
     ary = rb_ary_new2(tbl->num_entries);
     st_foreach(tbl, list_i, ary);
+    st_free_table(tbl);
 
     return ary;
 }