diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index b6b7d14798..0fe54d2ba9 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -16,6 +16,10 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2012-09-05 09:29 UTC+0200 Viktor Szakats (harbour syenar.net)
+  * contrib/rddads/adsx.c
+    ! fixed wrong cast causing compiler warning
+
 2012-09-04 22:05 UTC+0200 Viktor Szakats (harbour syenar.net)
   * contrib/3rd/sqlite3/sqlite3.*
   * contrib/3rd/sqlite3/sqlite3.hbp
diff --git a/harbour/contrib/rddads/adsx.c b/harbour/contrib/rddads/adsx.c
index a868c76b42..6d2d8fba89 100644
--- a/harbour/contrib/rddads/adsx.c
+++ b/harbour/contrib/rddads/adsx.c
@@ -608,7 +608,7 @@ static PMIXUPDATE mixUpdateCreate( ADSXAREAP pArea )
       PMIXKEY  pKey = mixKeyEval( pTag, pArea );
       HB_ULONG ulKeyPos;
 
-      pUpdate[ iTag ] = mixFindKey( pTag, pKey, &ulKeyPos ) ? ulKeyPos : ( HB_LONG ) -1;
+      pUpdate[ iTag ] = mixFindKey( pTag, pKey, &ulKeyPos ) ? ulKeyPos : ( HB_ULONG ) -1;
       mixKeyFree( pKey );
 
       pTag = pTag->pNext;