diff --git a/ChangeLog b/ChangeLog
index eb2b49c644..05f8170fff 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Wed Mar 12 17:33:34 2008  Nobuyoshi Nakada  <nobu@ruby-lang.org>
+
+	* object.c (rb_cstr_to_dbl): fix for a mere underscore.
+
 Wed Mar 12 14:47:07 2008  Nobuyoshi Nakada  <nobu@ruby-lang.org>
 
 	* eval_intern.h (rb_thread_raised_set): use generic flags.
diff --git a/object.c b/object.c
index 7b364499e2..39d6d866fe 100644
--- a/object.c
+++ b/object.c
@@ -2064,7 +2064,7 @@ rb_cstr_to_dbl(const char *p, int badcheck)
 	char *e = buf + sizeof(buf) - 1;
 	char prev = 0;
 
-	while (p < end && n < e) *n++ = *p++;
+	while (p < end && n < e) prev = *n++ = *p++;
 	while (*p) {
 	    if (*p == '_') {
 		/* remove underscores between digits */