diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 4e2aabb23f..b3f80f5654 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,7 @@
+2000-10-10 16:12 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>
+   *contrib/rdd_ads/ads1.c
+     * fixed bug with creating compound indexes, reported by Antonio Linares
+
 2000-10-10 14:50 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>
    * source/rdd/workarea.c
      * fixed bug, related to fields handling
diff --git a/harbour/contrib/rdd_ads/ads1.c b/harbour/contrib/rdd_ads/ads1.c
index 7c85c36428..8f9f206844 100644
--- a/harbour/contrib/rdd_ads/ads1.c
+++ b/harbour/contrib/rdd_ads/ads1.c
@@ -1283,10 +1283,7 @@ static ERRCODE adsOrderCreate( ADSAREAP pArea, LPDBORDERCREATEINFO pOrderInfo )
       ulOptions = ADS_COMPOUND;
    else
    {
-      int slen = strlen( pArea->szDataFileName );
-      char * ptr = pArea->szDataFileName + slen - 4;
-      if( strcmpNoCase( ( char * ) pOrderInfo->abBagName, ( char * ) pArea->szDataFileName,
-            ( slen >= 4 && strcmpNoCase( ".dbf", ptr, 0 ) ) ? slen-4:0 ) )
+      if( pOrderInfo->atomBagName && *(pOrderInfo->atomBagName) != '\0' )
          ulOptions = ADS_COMPOUND;
    }