diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 69afe1cc44..4bb0e99580 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,14 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2009-08-22 22:13 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
+  * contrib/hbxbp/tests/demoxbp.prg
+    * Added '#pragma -w1' to suppress warnings.
+      Pripal, is there any chance you can clear them? it would
+      be a nice showcase as in real apps it's better to stick
+      with full warnings on. It would better show the Xbase++
+      Parts user code's suitability for real apps. IMO.
+
 2009-08-22 21:46 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
   + config/Makefile
     + Added Makefile to show an error with simple one-liner
diff --git a/harbour/contrib/hbxbp/tests/demoxbp.prg b/harbour/contrib/hbxbp/tests/demoxbp.prg
index d919ef07b3..c638d41076 100644
--- a/harbour/contrib/hbxbp/tests/demoxbp.prg
+++ b/harbour/contrib/hbxbp/tests/demoxbp.prg
@@ -61,6 +61,11 @@
    #pragma library("XppUi2")
 #endif
 
+#ifdef __HARBOUR__
+   /* NOTE: Better would be to fix warnings. */
+   #pragma -w1
+#endif
+
 /*----------------------------------------------------------------------*/
 
 REQUEST DbfCdx