diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 5d907a69df..0e7644f76d 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,10 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2010-05-27 08:11 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * harbour/contrib/gtwvg/wvgsink.c
+    ! updated WVG OLE code to use new hb_oleVariantUpdate() parameters
+
 2010-05-26 18:53 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
   * contrib/hbqt/generator/hbqtgen.prg
     + Tweaked to operate on local folder and definitions there.
diff --git a/harbour/contrib/gtwvg/wvgsink.c b/harbour/contrib/gtwvg/wvgsink.c
index dad4a6a992..b63bbf0738 100644
--- a/harbour/contrib/gtwvg/wvgsink.c
+++ b/harbour/contrib/gtwvg/wvgsink.c
@@ -279,7 +279,7 @@ static HRESULT STDMETHODCALLTYPE Invoke( IEventHandler *lpThis, DISPID dispid, R
          hb_oleItemToVariant( pVarResult, hb_stackReturnItem() );
 
       for( i = 0; i < iRefs; i++ )
-         hb_oleVariantUpdate( refArray[ i ].variant, refArray[ i ].item );
+         hb_oleVariantUpdate( refArray[ i ].variant, refArray[ i ].item, NULL );
 
       for( i = 0; i < iRefs; i++ )
          hb_stackPop();