diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 5170397dc2..891f340183 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,7 @@
+2000-07-12 21:41 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>
+     *contrib/rdd_ads/ads1.c
+     * Warning fixed, reported by David G. Holm
+
 2000-07-12 12:30 UTC-0400 David G. Holm <dholm@jsd-llc.com>
 
    * config/c.cf
diff --git a/harbour/contrib/rdd_ads/ads1.c b/harbour/contrib/rdd_ads/ads1.c
index 3351cb1167..983ed38faa 100644
--- a/harbour/contrib/rdd_ads/ads1.c
+++ b/harbour/contrib/rdd_ads/ads1.c
@@ -904,7 +904,7 @@ static ERRCODE adssetRel( ADSAREAP pArea, LPDBRELINFO  lpdbRelations )
 
    HB_TRACE(HB_TR_DEBUG, ("adssetRel(%p, %p)", pArea, lpdbRelations));
 
-   SUPER_SETREL( ( AREAP ) pArea, lpdbRelations );
+   SUPER_SETREL( ( AREAP ) pArea, (LPDBOPENINFO) lpdbRelations );
    if( !( hIndex = ( (ADSAREAP)lpdbRelations->lpaChild )->hOrdCurrent ) )
       return FAILURE;
    if( !lpdbRelations->abKey )