diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 87ced28192..d5daa77815 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,14 @@
    2009-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
 */
 
+2009-02-20 17:23 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
+  * harbour/contrib/gtwvg/wvgsink.c
+    ! Fixes as per Przemek's observations.
+      ;TOREVIEW :    return( ( ULONG ) ( ( MyRealIEventHandler * ) this )->count < 0 ? 
+                                      ( ( MyRealIEventHandler * ) this )->count : 0 );
+       Actually I was having some problem with some old active-x 
+       and was trying to fix that, that is why, now I do not remeber...
+
 2009-02-21 01:49 UTC+0100 Viktor Szakats (harbour.01 syenar hu)
   * contrib/hbgd/gdwrp.c
     % Deleted #includes not necessary.
diff --git a/harbour/contrib/gtwvg/wvgsink.c b/harbour/contrib/gtwvg/wvgsink.c
index e3b48e199d..439ee150db 100644
--- a/harbour/contrib/gtwvg/wvgsink.c
+++ b/harbour/contrib/gtwvg/wvgsink.c
@@ -986,14 +986,14 @@ HB_FUNC( HB_AX_ATLAXGETCONTROL ) // HWND hWnd = handle of control container wind
 
 HB_FUNC( HB_AX_ATLSETVERB )
 {
-   HWND hwnd = ( HWND ) hb_parnint( 1 );
+   HWND hwnd = ( HWND ) ( HB_PTRDIFF ) hb_parnint( 1 );
 
    if( hwnd )
    {
-      IUnknown *pUnk = ( IUnknown* ) hb_parnint( 2 );
+      IUnknown *pUnk = ( IUnknown* ) ( HB_PTRDIFF ) hb_parnint( 2 );
 
       IOleObject *lpOleObject = NULL;
-      if( SUCCEEDED( pUnk->lpVtbl->QueryInterface( pUnk, &IID_IOleObject, ( void** ) &lpOleObject ) ) );
+      if( SUCCEEDED( pUnk->lpVtbl->QueryInterface( pUnk, &IID_IOleObject, ( void** ) &lpOleObject ) ) )
       {
          IOleClientSite* lpOleClientSite;