diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index e4adf344a3..847d68eb2b 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,10 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2010-04-10 12:04 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
+  * contrib/hbxbp/xbpdialog.prg
+    + Added :sysMenu instance variable picked from Shum's example.
+
 2010-04-10 19:58 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
   * contrib/hbide/ideobject.prg
   * contrib/hbide/idefunctions.prg
diff --git a/harbour/contrib/hbxbp/xbpdialog.prg b/harbour/contrib/hbxbp/xbpdialog.prg
index 4301843916..b964882fa3 100644
--- a/harbour/contrib/hbxbp/xbpdialog.prg
+++ b/harbour/contrib/hbxbp/xbpdialog.prg
@@ -91,6 +91,8 @@ CLASS XbpDialog FROM XbpWindow
    DATA     titleBar                              INIT  .F.
    DATA     moveWithOwner                         INIT  .T.
    DATA     origin                                INIT  XBPDLG_ORIGIN_OWNER
+   DATA     sysMenu                               INIT  .T.
+
 
    METHOD   new( oParent, oOwner, aPos, aSize, aPresParams, lVisible )
    METHOD   create( oParent, oOwner, aPos, aSize, aPresParams, lVisible )