diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index fa97e9430e..8d81bc83f0 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -7,6 +7,11 @@
    For example:
    2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
+  * contrib/rdd_ads/adsmgmt.c
+    ! UINT, which is not defined in gcc system, is changed to unsigned int,
+      fixed one warning
+
+2002-05-15 12:00 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
   * contrib/rdd_ads/ads1.c
     ! fixed a bug in adsSeek() for date indexes, changes was posted
       by Carlos Mora.
diff --git a/harbour/contrib/rdd_ads/ads1.c b/harbour/contrib/rdd_ads/ads1.c
index a7b8ed3af2..a540569cc6 100644
--- a/harbour/contrib/rdd_ads/ads1.c
+++ b/harbour/contrib/rdd_ads/ads1.c
@@ -514,11 +514,10 @@ static ERRCODE adsSeek( ADSAREAP pArea, BOOL bSoftSeek, PHB_ITEM pKey, BOOL bFin
       }
       else if(hb_itemType( pKey ) & HB_IT_DATE )
       {
-         char szData[9];
-         hb_itemGetDS(  pKey, (char *) szData );
-         AdsSeekLast( pArea->hOrdCurrent, szData,
-                    8, ADS_STRINGKEY,
-                    (UNSIGNED16*) &(pArea->fFound) );
+         double dTemp;
+         dTemp = hb_itemGetDL( pKey );
+         AdsSeekLast( pArea->hOrdCurrent, (UNSIGNED8 *) &dTemp,
+                  8, ADS_DOUBLEKEY, (UNSIGNED16*) &(pArea->fFound) );
       }else
       {
          hb_itemGetNLen( pKey, &uiLen, &uiDec  );
@@ -542,10 +541,10 @@ static ERRCODE adsSeek( ADSAREAP pArea, BOOL bSoftSeek, PHB_ITEM pKey, BOOL bFin
       }
       else if(hb_itemType( pKey ) & HB_IT_DATE )
       {
-         char szData[9];
-         hb_itemGetDS(  pKey, (char *) szData );
-         AdsSeek( pArea->hOrdCurrent, szData,
-                  8, ADS_STRINGKEY, usSeekType, (UNSIGNED16*) &(pArea->fFound) );
+         double dTemp;
+         dTemp = hb_itemGetDL( pKey );
+         AdsSeek( pArea->hOrdCurrent, (UNSIGNED8 *) &dTemp,
+                  8, ADS_DOUBLEKEY, usSeekType, (UNSIGNED16*) &(pArea->fFound) );
       }
 
 /*