diff --git a/ChangeLog b/ChangeLog
index acbc02af14..e0751372a2 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Wed Oct  3 16:49:49 2001  Nobuyoshi Nakada  <nobu.nakada@nifty.ne.jp>
+
+	* ext/gdbm/gdbm.c (rb_gdbm_fetch): str is a VALUE now.
+
 Wed Oct  3 13:32:06 2001  Yukihiro Matsumoto  <matz@ruby-lang.org>
 
 	* marshal.c (r_object): better allocation type check for
diff --git a/ext/gdbm/gdbm.c b/ext/gdbm/gdbm.c
index 1e76a28ca8..fba4d23866 100644
--- a/ext/gdbm/gdbm.c
+++ b/ext/gdbm/gdbm.c
@@ -169,7 +169,7 @@ rb_gdbm_fetch(dbm, key)
     RSTRING(str)->len = val.dsize;
     RSTRING(str)->orig = 0;
     RSTRING(str)->ptr = REALLOC_N(val.dptr,char,val.dsize+1);
-    RSTRING(str)->ptr[str->len] = '\0';
+    RSTRING(str)->ptr[val.dsize] = '\0';
 
     OBJ_TAINT(str);
     return (VALUE)str;