diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 27dcd9673a..d8ddece62f 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,10 @@
    2008-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
 */
 
+2008-10-22 20:45 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
+  * harbour/contrib/gtwvg/tests/demowvg.prg
+    ! Minor change to change the color pallet of <Next Gets> screen.
+
 2008-10-22 20:11 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
   * harbour/contrib/gtwvg/gtwvg.c
   * harbour/contrib/gtwvg/gtwvg.h
diff --git a/harbour/contrib/gtwvg/tests/demowvg.prg b/harbour/contrib/gtwvg/tests/demowvg.prg
index 3bcdac0069..7d423bf0d5 100644
--- a/harbour/contrib/gtwvg/tests/demowvg.prg
+++ b/harbour/contrib/gtwvg/tests/demowvg.prg
@@ -333,10 +333,12 @@ PROCEDURE WvtNextGets_X()
    LOCAL scr        := SaveScreen( 0,0,maxrow(),maxcol() )
    LOCAL wvtScr     := Wvt_SaveScreen( 0,0,maxrow(),maxcol() )
 
+   Static nPalletMultiplier := 0
+
    // Change the values of pallatte arbitrarily though yu can fine tune
    // these values with realistic values.
    //
-   aNewPalette[ 8 ] := aNewPalette[ 8 ] + 100000
+   aNewPalette[ 8 ] := aNewPalette[ 8 ] + ( 100000 * ++nPalletMultiplier )
 
    Wvt_SetPalette( aNewPalette )