diff --git a/ChangeLog b/ChangeLog
index a995d1a7dd..346a19f905 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Tue May 19 13:59:35 2009  Yukihiro Matsumoto  <matz@ruby-lang.org>
+
+	* class.c (clone_method): add cast to remove warning from
+	  rb_gc_write_barrier().
+
 Tue May 19 13:54:15 2009  Yukihiro Matsumoto  <matz@ruby-lang.org>
 
 	* struct.c (struct_ivar_get): new function to avoid repeated
diff --git a/class.c b/class.c
index 95e793eca5..9dd68b655a 100644
--- a/class.c
+++ b/class.c
@@ -93,7 +93,7 @@ clone_method(ID mid, NODE *body, struct clone_method_data *data)
                       0,
 		      NEW_NODE_LONGLIFE(NODE_METHOD,
                                         rb_gc_write_barrier(data->klass), /* TODO */
-                                        rb_gc_write_barrier(fbody),
+                                        rb_gc_write_barrier((VALUE)fbody),
                                         body->nd_body->nd_noex), 0));
     }
     return ST_CONTINUE;