diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index a660ad7928..c6aabbc807 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-02-18 23:05 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
+  * source/rdd/dbfntx/dbfntx1.c
+    ! Stupid bug is fixed, which was introduced recently
+
 2003-02-18 09:15 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
   * contrib/rdd_ads/adsfunc.c
     * Few type casts for MSVC
diff --git a/harbour/source/rdd/dbfntx/dbfntx1.c b/harbour/source/rdd/dbfntx/dbfntx1.c
index 6a66a7e2d6..12aeb7fa61 100644
--- a/harbour/source/rdd/dbfntx/dbfntx1.c
+++ b/harbour/source/rdd/dbfntx/dbfntx1.c
@@ -2986,12 +2986,14 @@ static ERRCODE ntxGoTop( NTXAREAP pArea )
      LPTAGINFO pTag = pArea->lpCurTag;
 
      if( pTag->topScope )
+     {
         ntxSeek( pArea, 1, pTag->topScope, 0 );
         if( pTag->TagEOF )
         {
            hb_ntxGoEof( pArea );
            return SUCCESS;
         }
+     }
      else
         hb_ntxTagKeyGoTo( pTag, TOP_RECORD, NULL );
      SELF_GOTO( ( AREAP ) pArea, pTag->CurKeyInfo->Xtra );