diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 5e2e38ad6d..b9bede7db9 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-09-21 12:20 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
+  * source/rdd/dbfntx/dbfntx1.c
+    ! Bug fixed, related to seeking while set deleted on is set
+
 2002-09-20 23:55 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
   * source/rdd/dbfntx/dbfntx1.c
     ! Bug fixed, related to softseek
diff --git a/harbour/source/rdd/dbfntx/dbfntx1.c b/harbour/source/rdd/dbfntx/dbfntx1.c
index 07ee424766..b1d0fe2583 100644
--- a/harbour/source/rdd/dbfntx/dbfntx1.c
+++ b/harbour/source/rdd/dbfntx/dbfntx1.c
@@ -706,6 +706,11 @@ static int hb_ntxTagFindCurrentKey( LPTAGINFO pTag, LPPAGEINFO pPage, LPKEYINFO
          }
          else if( k <= 0 && pPage->CurKey < pPage->uiKeys )
             pTag->stackLevel = 0;
+         if( k <= 0 && pPage->CurKey < pPage->uiKeys && pTag->CurKeyInfo->Tag == 0 )
+         {
+            pTag->CurKeyInfo->Xtra = p->rec_no;
+            pTag->CurKeyInfo->Tag = pPage->Page;
+         }
       }
       if( k > 0 && ++pPage->CurKey <= pPage->uiKeys )
       {