diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 664913baf2..f6889157ba 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,10 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2010-04-23 17:12 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
+  * contrib/gtwvg/wvgpushb.prg
+    ! Fixed an ommitted SETGET keyword causing demowvg/demoxbp defunct.
+
 2010-04-23 20:27 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
   * utils/hbmk2/hbmk2.prg
     * Minor safety fix.
diff --git a/harbour/contrib/gtwvg/wvgpushb.prg b/harbour/contrib/gtwvg/wvgpushb.prg
index 56c050501a..275a09c85c 100644
--- a/harbour/contrib/gtwvg/wvgpushb.prg
+++ b/harbour/contrib/gtwvg/wvgpushb.prg
@@ -100,13 +100,14 @@ CLASS WvgPushButton  INHERIT  WvgWindow
    METHOD   handleEvent( nMessage, aNM )
 
    METHOD   setCaption( xCaption, cDll )
-   METHOD   activate( xParam )
-   METHOD   draw( xParam )
+   METHOD   activate( xParam )                    SETGET
+   METHOD   draw( xParam )                        SETGET
 
    METHOD   setColorFG()                          INLINE NIL
    METHOD   setColorBG()                          INLINE NIL
 
    ENDCLASS
+
 /*----------------------------------------------------------------------*/
 
 METHOD new( oParent, oOwner, aPos, aSize, aPresParams, lVisible ) CLASS WvgPushButton
@@ -209,7 +210,7 @@ METHOD setCaption( xCaption, cDll ) CLASS WvgPushButton
 
 METHOD activate( xParam ) CLASS WvgPushButton
 
-   IF hb_isBlock( xParam ) .or. ( xParam == NIL )
+   IF hb_isBlock( xParam ) .OR. ( xParam == NIL )
       ::sl_lbClick := xParam
    ENDIF