diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index a4cc8d2545..2035f36b6f 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,10 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2009-06-29 20:44 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
+  * harbour/contrib/hbxbp/tests/demoxbp.prg
+    ! Fixed some artifacts.
+
 2009-06-29 16:50 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
   * utils/hbmk2/hbmk2.pt_BR.po
   * utils/hbmk2/hbmk2.hu_HU.po
diff --git a/harbour/contrib/hbxbp/tests/demoxbp.prg b/harbour/contrib/hbxbp/tests/demoxbp.prg
index 76e694113d..ffcf056fa1 100644
--- a/harbour/contrib/hbxbp/tests/demoxbp.prg
+++ b/harbour/contrib/hbxbp/tests/demoxbp.prg
@@ -78,7 +78,6 @@ PROCEDURE BuildADialog()
    oDlg:close := {|| MsgBox( "You can also close me by pressing [ESC]" ), .T. }
    // oDlg:killDisplayFocus := {|| hb_OutDebug( "Loosing Display Focus" ) }
    SetAppWindow( oDlg )
-   oDlg:show()
 
    oDa := oDlg:drawingArea
 
@@ -437,7 +436,7 @@ FUNCTION Build_TabPages( oDlg )
    oTab1:create()
    oTab1:TabActivate := {|| oTab2:minimize(), oTab3:minimize(), oTab4:minimize(), oTab1:maximize() }
 
-   oTab1:setPointer( , XBPSTATIC_SYSICON_WAIT, XBPWINDOW_POINTERTYPE_SYSPOINTER )
+   oTab1:setPointer( , XBPSTATIC_SYSICON_SIZENESW, XBPWINDOW_POINTERTYPE_SYSPOINTER )
 
    // Second tab page is minimized
    oTab2 := XbpTabPage():new( oDlg:drawingArea, , { 510, 20 }, { 360, nHeight } )
@@ -523,13 +522,13 @@ FUNCTION Build_ScrollBar( oWnd )
    oXbpH := XbpScrollbar():new()
    oXbpH:type  := XBPSCROLL_HORIZONTAL
    oXbpH:range := { 1, 100 }           //50
-   oXbpH:create( oWnd, , { 10,nHeight-30 }, { nWidth-40,nFat } )
+   oXbpH:create( oWnd, , { 10,nHeight-50 }, { nWidth-40,nFat } )
    oXbpH:scroll := {|| oXbpV:setData( oXbpH:getData() ) }
 
    oXbpV := XbpScrollbar():new()
    oXbpV:type  := XBPSCROLL_VERTICAL
    oXbpV:range := { 1, 100 }
-   oXbpV:create( oWnd, , { nWidth-30,10 }, { nFat,nHeight-40 } )
+   oXbpV:create( oWnd, , { nWidth-30,10 }, { nFat,nHeight-60 } )
    oXbpV:scroll := {|| oXbpH:setData( oXbpV:getData() ) }
 
    RETURN nil
@@ -561,7 +560,7 @@ FUNCTION Build_SLEs( oWnd )
    oXbp:setData()
    // Assign the value of the edit buffer to a LOCAL variable
    // when the input focus is lost
-   oXbp:killInputFocus := { |x,y,oSLE| oSLE:getData(), MsgBox( "Var B =" + cVarB ) }
+   oXbp:killInputFocus := { |x,y,oSLE| oSLE:getData(), hb_outDebug( "Var B =" + cVarB ) }
 
    oXbp:setColorBG( GraMakeRGBColor( { 190,190,190 } ) )