diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index d5ebbbef9a..15323021b5 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -16,6 +16,10 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2011-07-16 14:02 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * harbour/contrib/hbct/numbase.c
+    * casting to pacify warning
+
 2011-07-16 13:51 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
   * harbour/utils/hbtest/rt_str.prg
     ! disabled workaround for 64 bit [U]LONG values in Win64 builds.
diff --git a/harbour/contrib/hbct/numbase.c b/harbour/contrib/hbct/numbase.c
index 9a9855c77c..42460c73d8 100644
--- a/harbour/contrib/hbct/numbase.c
+++ b/harbour/contrib/hbct/numbase.c
@@ -112,7 +112,7 @@ HB_FUNC( CTON )
             hb_retnint( ( HB_U32 ) nValue );
       }
       else if( ( HB_MAXINT ) nValue < 0 )
-         hb_retnd( nValue );
+         hb_retnd( ( double ) nValue );
       else
          hb_retnint( nValue );
 #endif