diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 99c4234d04..afe6438dfb 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,11 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2009-06-13 15:28 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
+  * harbour/contrib/hbxbp/tests/demoxbp.prg
+    ! Added AppSys() call as it is required for Xbase++ to flag 
+      that application is GUI one.
+
 2009-06-13 15:26 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
   * harbour/contrib/hbxbp/xbp_temp.prg
     + Added missing functions.
diff --git a/harbour/contrib/hbxbp/tests/demoxbp.prg b/harbour/contrib/hbxbp/tests/demoxbp.prg
index f9784aba14..8ab976f839 100644
--- a/harbour/contrib/hbxbp/tests/demoxbp.prg
+++ b/harbour/contrib/hbxbp/tests/demoxbp.prg
@@ -185,5 +185,9 @@ STATIC FUNCTION MyFunctionXbp( nMode )
 
 /*----------------------------------------------------------------------*/
 
+PROCEDURE AppSys()
+   RETURN
+
+/*----------------------------------------------------------------------*/