diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index cb76dcc664..cd776cebbe 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,10 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2009-12-18 13:04 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
+  * contrib/hbxbp/xbpwindow.prg
+    ! Fixed "lSuccess" issue.
+
 2009-12-18 18:53 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
   * doc/whatsnew.txt
     + Added text documenting whatsnew missing parts.
diff --git a/harbour/contrib/hbxbp/xbpwindow.prg b/harbour/contrib/hbxbp/xbpwindow.prg
index d63a68e103..f718f494d4 100644
--- a/harbour/contrib/hbxbp/xbpwindow.prg
+++ b/harbour/contrib/hbxbp/xbpwindow.prg
@@ -734,7 +734,7 @@ METHOD XbpWindow:configure( oParent, oOwner, aPos, aSize, aPresParams, lVisible
 /*----------------------------------------------------------------------*/
 
 METHOD XbpWindow:destroy()
-   LOCAL e_, lSuccess
+   LOCAL e_
    LOCAL cXbp := __ObjGetClsName( self )
 
 //HBXBP_DEBUG( ".   " )
@@ -752,8 +752,8 @@ METHOD XbpWindow:destroy()
 
    IF len( ::aEConnections ) > 0
       FOR EACH e_ IN ::aEConnections
-         lSuccess := Qt_DisConnect_Event( e_[ 1 ], e_[ 2 ] )
-         hbxbp_debug( "Event Disconnect:", iif( lSuccess, "SUCCEEDED", "FAILED   " ), e_[ 1 ], e_[ 2 ] )
+         ::xDummy := Qt_DisConnect_Event( e_[ 1 ], e_[ 2 ] )
+         hbxbp_debug( "Event Disconnect:", iif( ::xDummy, "SUCCEEDED", "FAILED   " ), e_[ 1 ], e_[ 2 ] )
       NEXT
       ::aEConnections := {}
       ::oWidget:removeEventFilter( QT_GetEventFilter() )
@@ -783,12 +783,12 @@ METHOD XbpWindow:destroy()
 /*----------------------------------------------------------------------*/
 
 METHOD XbpWindow:disconnect()
-   LOCAL lSuccess, e_
+   LOCAL e_
 
    IF len( ::aConnections ) > 0
       FOR EACH e_ IN ::aConnections
-         lSuccess := Qt_DisConnect_Signal( e_[ 1 ], e_[ 2 ] )
-         hbxbp_debug( "   Signal Disconnect:", iif( lSuccess, "SUCCEEDED", "FAILED   " ), e_[ 1 ], e_[ 2 ] )
+         ::xDummy := Qt_DisConnect_Signal( e_[ 1 ], e_[ 2 ] )
+         hbxbp_debug( "   Signal Disconnect:", iif( ::xDummy, "SUCCEEDED", "FAILED   " ), e_[ 1 ], e_[ 2 ] )
       NEXT
       ::aConnections := {}
    ENDIF