diff --git a/ChangeLog b/ChangeLog
index 9542eb6112..a875d3f81e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+Thu Jun  5 21:46:50 2008  Yusuke Endoh  <mame@tsg.ne.jp>
+
+	* st.c (st_reverse_foreach): comment out unused function.
+
+	* util.c (dtoa): ditto.
+
 Thu Jun  5 20:30:46 2008  Akinori MUSHA  <knu@iDaemons.org>
 
 	* ext/openssl/ossl_ssl_session.c (ossl_ssl_session_initialize):
diff --git a/st.c b/st.c
index 0090f28e5d..5ddb6d9d2b 100644
--- a/st.c
+++ b/st.c
@@ -686,6 +686,7 @@ st_foreach(st_table *table, int (*func)(ANYARGS), st_data_t arg)
     return 0;
 }
 
+#if 0  /* unused right now */
 int
 st_reverse_foreach(st_table *table, int (*func)(ANYARGS), st_data_t arg)
 {
@@ -767,6 +768,7 @@ st_reverse_foreach(st_table *table, int (*func)(ANYARGS), st_data_t arg)
     }
     return 0;
 }
+#endif
 
 /*
  * hash_32 - 32 bit Fowler/Noll/Vo FNV-1a hash code
diff --git a/util.c b/util.c
index 3a39adddc7..6c5f498932 100644
--- a/util.c
+++ b/util.c
@@ -3265,6 +3265,7 @@ freedtoa(char *s)
  *     calculation.
  */
 
+#if 0  /* unused right now */
 char *
 dtoa(double d, int mode, int ndigits, int *decpt, int *sign, char **rve)
 {
@@ -3934,6 +3935,7 @@ ret1:
         *rve = s;
     return s0;
 }
+#endif
 
 void
 ruby_each_words(const char *str, void (*func)(const char*, int, void*), void *arg)