diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index b2ebf7840f..3af7667eb6 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,7 @@
+20000313-12:42 GMT+3 Alexander Kresin
+   * contrib/rdd_ads/ads1.c
+     * Little bug fixed in adsAppend()
+
 2000-03-12 21:50 GMT-5 David G. Holm <dholm@ sd-llc.com>
    * source/compiler/harbour.y
      ! Added missing ( char * ) override for C++ on line 1549.
diff --git a/harbour/contrib/rdd_ads/ads1.c b/harbour/contrib/rdd_ads/ads1.c
index ffeaac7ded..fb252d7446 100644
--- a/harbour/contrib/rdd_ads/ads1.c
+++ b/harbour/contrib/rdd_ads/ads1.c
@@ -339,6 +339,7 @@ static ERRCODE adsAppend( ADSAREAP pArea, BOOL bUnLockAll )
    HB_TRACE(HB_TR_DEBUG, ("adsAppend(%p, %d)", pArea, (int) bUnLockAll));
 
    AdsAppendRecord  ( pArea->hTable );
+   hb_adsCheckBofEof( pArea );
    return SUCCESS;
 }