diff --git a/ChangeLog b/ChangeLog
index adfb263b6b..483eb31ef6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Fri Aug 30 19:45:52 2002  Nobuyoshi Nakada  <nobu.nokada@softhome.net>
+
+	* variable.c (rb_const_assign): st_delete() takes pointer to key.
+
 Fri Aug 30 19:40:28 2002  Nobuyoshi Nakada  <nobu.nokada@softhome.net>
 
 	* ext/Win32API/Win32API.c (Win32API_Call): RSTRING()->ptr may be
diff --git a/variable.c b/variable.c
index 28b3f965ba..0b2c8ebe07 100644
--- a/variable.c
+++ b/variable.c
@@ -1371,7 +1371,7 @@ rb_const_assign(klass, id, val)
     }
     /* pre-defined class */
     if (st_lookup(rb_class_tbl, id, 0)) {
-	st_delete(rb_class_tbl, id, 0);
+	st_delete(rb_class_tbl, &id, 0);
 	st_insert(RCLASS(rb_cObject)->iv_tbl, id, val);
 	return;
     }