diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 31da49c3a6..9925613356 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,10 @@
    2008-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
 */
 
+2009-02-03 18:51 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * harbour/source/vm/thread.c
+    * casting to pacify warning. The code is correct.
+
 2009-02-03 18:24 UTC+0100 Viktor Szakats (harbour.01 syenar hu)
   * doc/en/hb_api.txt
   * doc/en/hb_apird.txt
diff --git a/harbour/source/vm/thread.c b/harbour/source/vm/thread.c
index 73194c4e22..da896b334d 100644
--- a/harbour/source/vm/thread.c
+++ b/harbour/source/vm/thread.c
@@ -917,7 +917,7 @@ static int hb_threadWait( PHB_THREADSTATE * pThreads, int iThreads,
          if( timer <= curr )
             fExit = TRUE;
          else
-            ulMilliSec = timer - curr;
+            ulMilliSec = ( ULONG ) ( timer - curr );
       }
 #endif