diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index c57444f944..a5dc2e12f6 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,13 @@
    2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2003-04-18 14:10 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
+  * source/rdd/dbf1.c
+    ! Bug fixed - there was unrecoverable error if file opening failed
+      due to access denied.
+  * source/rdd/dbfntx/dbfntx1.c
+    * Added reporting of OS error code if index opening failed
+
 2003-04-17 15:50 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
   * source/pp/ppcore.c
     ! Fixed some problems with a long ( few Kb ) directives.
diff --git a/harbour/source/rdd/dbf1.c b/harbour/source/rdd/dbf1.c
index d8be6b89a5..ffcbe31527 100644
--- a/harbour/source/rdd/dbf1.c
+++ b/harbour/source/rdd/dbf1.c
@@ -1796,6 +1796,7 @@ ERRCODE hb_dbfOpen( DBFAREAP pArea, LPDBOPENINFO pOpenInfo )
    if( pArea->hDataFile == FS_ERROR )
    {
       hb_xfree( pArea->szDataFileName );
+      pArea->szDataFileName = NULL;
       return FAILURE;
    }
 
diff --git a/harbour/source/rdd/dbfntx/dbfntx1.c b/harbour/source/rdd/dbfntx/dbfntx1.c
index 836f5c10d3..59e8644588 100644
--- a/harbour/source/rdd/dbfntx/dbfntx1.c
+++ b/harbour/source/rdd/dbfntx/dbfntx1.c
@@ -3929,6 +3929,7 @@ static ERRCODE ntxOrderListAdd( NTXAREAP pArea, LPDBORDERINFO pOrderInfo )
          pError = hb_errNew();
          hb_errPutGenCode( pError, EG_OPEN );
          hb_errPutSubCode( pError, 1003 );
+         hb_errPutOsCode( pError, hb_fsError() );
          hb_errPutDescription( pError, hb_langDGetErrorDesc( EG_OPEN ) );
          hb_errPutFileName( pError, szFileName );
          hb_errPutFlags( pError, EF_CANRETRY | EF_CANDEFAULT );