From f76edc37fcf4fec3dfb376dc8ed96c59efa88753 Mon Sep 17 00:00:00 2001
From: "Alexander S.Kresin" <alex@belacy.belgorod.su>
Date: Wed, 24 Oct 2001 05:49:58 +0000
Subject: [PATCH] 2001-10-24 09:50 GMT+3 Alexander Kresin
 <alex@belacy.belgorod.su>

---
 harbour/ChangeLog                   | 4 ++++
 harbour/source/rdd/dbfntx/dbfntx1.c | 3 +++
 2 files changed, 7 insertions(+)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index c3489fa074..8e00bc64cc 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,7 @@
+2001-10-24 09:50 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>
+  ! source/rdd/dbfntx1.c
+     ! bug fixed in ntxZap
+
 2001-10-23 22:03 UTC-0500 Paul Tucker <ptucker@sympatico.ca>
    * makefile.vc
      * add missing $(OBJ_DIR)\hbmutils.c per <rhaley@onebox.com>
diff --git a/harbour/source/rdd/dbfntx/dbfntx1.c b/harbour/source/rdd/dbfntx/dbfntx1.c
index f5a75123e2..3b0e7e22f7 100644
--- a/harbour/source/rdd/dbfntx/dbfntx1.c
+++ b/harbour/source/rdd/dbfntx/dbfntx1.c
@@ -2382,6 +2382,9 @@ static ERRCODE ntxZap( NTXAREAP pArea )
       lpIndexTmp = pArea->lpCurIndex;
       while( lpIndex )
       {
+         if( lpIndex->CompoundTag->RootPage > 0 )
+            hb_ntxPageFree( lpIndex->CompoundTag->RootPage,TRUE );
+         lpIndex->CompoundTag->RootPage = NULL;
          lpIndex->CompoundTag->RootBlock = NTXBLOCKSIZE;
          hb_ntxHeaderSave( lpIndex );