diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index d955c01f49..9db88e2459 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,10 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2010-02-23 17:40 UTC+0100 Maurilio Longo (maurilio.longo@libero.it)
+   * source/contrib/hbxpp/tthreadx.prg
+     ! while waiting for ::interval to expire, ::active has to be .T.
+
 2010-02-23 08:26 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
   * contrib/hbqt/hbqt_hbslots.cpp
     ! Applied patch provided by Francek.
diff --git a/harbour/contrib/hbxpp/tthreadx.prg b/harbour/contrib/hbxpp/tthreadx.prg
index 7b7de7fd84..e74ad271e1 100644
--- a/harbour/contrib/hbxpp/tthreadx.prg
+++ b/harbour/contrib/hbxpp/tthreadx.prg
@@ -229,9 +229,7 @@ METHOD start( xAction, ... ) CLASS TTHREAD
                   ENDIF
 
                   IF ISNUMBER( ::interval )
-                     ::active := .F.
                      hb_idleSleep( ::interval / 100 )
-                     ::active := .T.
                      LOOP
                   ENDIF
                   ::startTime := NIL