diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 75cc5c95c5..2ce2b52a39 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:28 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
+  * src/rtl/gtgui/gtgui.c
+    ! added cast to pacify msvc64 warning
+
 2011-07-16 14:02 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
   * contrib/hbmysql/hbmysql.hbc
   * contrib/sddmy/sddmy.hbc
diff --git a/harbour/src/rtl/gtgui/gtgui.c b/harbour/src/rtl/gtgui/gtgui.c
index 541704822c..2d4ac3f6cc 100644
--- a/harbour/src/rtl/gtgui/gtgui.c
+++ b/harbour/src/rtl/gtgui/gtgui.c
@@ -167,7 +167,7 @@ static int hb_gt_gui_optionPos( int id, int iType, PHB_ITEM pOptions )
    }
    if( iButton )
    {
-      int iOptions = hb_arrayLen( pOptions ), i;
+      int iOptions = ( int ) hb_arrayLen( pOptions ), i;
 
       for( i = 1; i <= iOptions; ++i )
       {