diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 21d4a1b070..ded5b0255a 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,10 @@
    2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2002-06-22 20:25 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
+  * source/rdd/dbfntx/dbfntx1.c
+    ! Bug fixed in skipping, when both Bof and Eof are true.
+
 2002-06-21 17:15 UTC-0300 Walter Negro <anegro@overnet.com.ar>
   * source/rtl/tgetlist.prg
     + Add #include tbrowse.ch for TBrowse defines.
diff --git a/harbour/source/rdd/dbfntx/dbfntx1.c b/harbour/source/rdd/dbfntx/dbfntx1.c
index 7abbf44027..5e10def04b 100644
--- a/harbour/source/rdd/dbfntx/dbfntx1.c
+++ b/harbour/source/rdd/dbfntx/dbfntx1.c
@@ -3098,7 +3098,7 @@ static ERRCODE ntxSkipRaw( NTXAREAP pArea, LONG lToSkip )
      BOOL lContinue = FALSE;
      ULONG ulRecNo = pArea->ulRecNo;
 
-     if ( pArea->fBof )
+     if ( pArea->fBof && !pArea->fEof )
         SELF_GOTOP( ( AREAP ) pArea );
 
      if ( lToSkip == 0 )