diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 8209a4ef42..ce4f3c697c 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,10 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2009-07-10 20:31 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
+  * source/rtl/xhelp.c
+    ! Silenced MSVC warning.
+
 2009-07-10 20:28 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
   * source/vm/fm.c
     ! Fixed bcc C++ build errors by enabling USE_DL_PREFIX in this case.
diff --git a/harbour/source/rtl/xhelp.c b/harbour/source/rtl/xhelp.c
index 19d7651989..cb337b2936 100644
--- a/harbour/source/rtl/xhelp.c
+++ b/harbour/source/rtl/xhelp.c
@@ -76,7 +76,7 @@ HB_FUNC( __XHELP )
       for( iParam = 1; iParam <= iPCount; iParam++ )
          hb_vmPush( hb_stackItemFromBase( iParam ) );
 
-      hb_vmProc( iPCount );
+      hb_vmProc( ( USHORT ) iPCount );
       /* NOTE: Leave the return value as it is. */
    }
 }