diff --git a/ChangeLog b/ChangeLog
index 3b65e8bb0a..caaf8106e1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,7 +1,11 @@
-Tue Mar 10 14:43:16 2009  Nobuyoshi Nakada  <nobu@ruby-lang.org>
+Tue Mar 10 19:40:06 2009  Nobuyoshi Nakada  <nobu@ruby-lang.org>
+
+	* ext/dl/callback/mkcallback.rb (DLTYPE[FLOAT]): cast to suppress
+	  warnings.  [ruby-core:22792]
 
 	* array.c, bignum.c, gc.c, numeric.c, string.c, util.c, insns.def,
 	  missing/crypt.c, missing/vsnprintf.c, : suppress warnings.
+	  [ruby-core:22792]
 
 Tue Mar 10 13:45:54 2009  Nobuyoshi Nakada  <nobu@ruby-lang.org>
 
diff --git a/ext/dl/callback/mkcallback.rb b/ext/dl/callback/mkcallback.rb
index b62a2eadf1..d2f9e3f2e1 100644
--- a/ext/dl/callback/mkcallback.rb
+++ b/ext/dl/callback/mkcallback.rb
@@ -73,7 +73,7 @@ DLTYPE = {
   FLOAT => {
     :name => 'float',
     :type => 'float',
-    :conv => 'RFLOAT_VALUE(%s)',
+    :conv => '(float)RFLOAT_VALUE(%s)',
   },
   DOUBLE => {
     :name => 'double',