diff --git a/ChangeLog b/ChangeLog
index af07dc18f5..97f6348269 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Tue Jun 27 00:54:08 2006  Nobuyoshi Nakada  <nobu@ruby-lang.org>
+
+	* util.c (powersOf10): constified.
+
 Mon Jun 26 18:37:44 2006  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
 
 	* ext/tk/tcltklib.c (ip_delete): fix SEGV when a slave-ip is
diff --git a/eval.c b/eval.c
index 96042aefb1..d03f031b9e 100644
--- a/eval.c
+++ b/eval.c
@@ -1,6 +1,6 @@
 /**********************************************************************
 
-  eval.e -
+  eval.c -
 
   $Author$
   $Date$
diff --git a/util.c b/util.c
index 6d1c9bc496..449d4bf439 100644
--- a/util.c
+++ b/util.c
@@ -684,7 +684,8 @@ ruby_getcwd()
 #define MDMINEXPT DBL_MIN_EXP
 #define MDMAXEXPT DBL_MAX_EXP
 
-static double powersOf10[] = {	/* Table giving binary powers of 10.  Entry */
+static const
+double powersOf10[] = { 	/* Table giving binary powers of 10.  Entry */
     10.0,			/* is 10^2^i.  Used to convert decimal */
     100.0,			/* exponents into floating-point numbers. */
     1.0e4,
@@ -736,7 +737,8 @@ ruby_strtod(string, endPtr)
 				 * address here. */
 {
     int sign, expSign = Qfalse;
-    double fraction = 0.0, dblExp, *d;
+    double fraction = 0.0, dblExp;
+    const double *d;
     register const char *p;
     register int c;
     int exp = 0;		/* Exponent read from "EX" field. */