diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 48bfc6a469..8845e4b2f3 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -16,6 +16,10 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2011-04-23 11:05 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
+  * contrib/hbqt/tests/demoqt.prg
+    ! Fixed: a -w3 warning.
+
 2011-04-23 10:38 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
   * harbour/src/rtl/filesys.c
     * casting to pacify warnings on some platforms which may use
diff --git a/harbour/contrib/hbqt/tests/demoqt.prg b/harbour/contrib/hbqt/tests/demoqt.prg
index 1c4343c736..aac891360c 100644
--- a/harbour/contrib/hbqt/tests/demoqt.prg
+++ b/harbour/contrib/hbqt/tests/demoqt.prg
@@ -78,6 +78,7 @@ STATIC oSys, oMenuSys, oActShow, oActHide
 /*----------------------------------------------------------------------*/
 
 FUNCTION My_Events( e )
+   HB_SYMBOL_UNUSED( e )
    HB_TRACE( HB_TR_DEBUG, "Key Pressed", e:key() )
    RETURN nil