diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 7f8d8c47ed..d6f8150e88 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,10 @@
    2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2003-05-06 12:45 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
+  * contrib/rdd_ads/ads1.c
+    ! Bug fixed in adsOrderListClear() - the current order is set to 0 now
+
 2003-05-06 10:45 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
   * include/hbapicdp.h
   * source/rtl/cdpapi.c
diff --git a/harbour/contrib/rdd_ads/ads1.c b/harbour/contrib/rdd_ads/ads1.c
index 4840f0caf6..3902eeeb27 100644
--- a/harbour/contrib/rdd_ads/ads1.c
+++ b/harbour/contrib/rdd_ads/ads1.c
@@ -1916,6 +1916,7 @@ static ERRCODE adsOrderListClear( ADSAREAP pArea )
    HB_TRACE(HB_TR_DEBUG, ("adsOrderListClear(%p)", pArea));
 
    AdsCloseAllIndexes  ( pArea->hTable );
+   pArea->hOrdCurrent = 0;
 
    return SUCCESS;
 }