diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 0aa3c00ae3..283780298c 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,9 @@
+19991013-14:06 GMT+1 Bruno Cantero <bruno@issnet.net>
+
+  * source/rdd/dbf1.c
+    source/rdd/dbfcdx/dbfcdx1.c
+    * Errors on open or create operations now report the correct number.
+
 19991013-03:13 GMT+8 Ron Pinkas <Ron@Profit-Master.com>
    * harbour.y
           + added TOKEN MACROALIAS and rules to support MemVar aliased macro and non aliased macro variables assignments.
diff --git a/harbour/source/rdd/dbf1.c b/harbour/source/rdd/dbf1.c
index 28baa9e44f..ca8c60a1a9 100644
--- a/harbour/source/rdd/dbf1.c
+++ b/harbour/source/rdd/dbf1.c
@@ -729,6 +729,7 @@ static ERRCODE dbfCreate( AREAP pArea, LPDBOPENINFO pCreateInfo )
          {
             pError = hb_errNew();
             hb_errPutGenCode( pError, EG_CREATE );
+            hb_errPutSubCode( pError, 1004 );
             hb_errPutDescription( pError, hb_langDGetErrorDesc( EG_CREATE ) );
             hb_errPutFileName( pError, ( char * ) pCreateInfo->abName );
             hb_errPutFlags( pError, EF_CANRETRY );
@@ -774,6 +775,7 @@ static ERRCODE dbfCreateMemFile( AREAP pArea, LPDBOPENINFO pCreateInfo )
          {
             pError = hb_errNew();
             hb_errPutGenCode( pError, EG_CREATE );
+            hb_errPutSubCode( pError, 1005 );
             hb_errPutDescription( pError, hb_langDGetErrorDesc( EG_CREATE ) );
             hb_errPutFileName( pError, ( char * ) pCreateInfo->abName );
             hb_errPutFlags( pError, EF_CANRETRY );
@@ -1137,6 +1139,7 @@ static ERRCODE dbfOpen( AREAP pArea, LPDBOPENINFO pOpenInfo )
          {
             pError = hb_errNew();
             hb_errPutGenCode( pError, EG_OPEN );
+            hb_errPutSubCode( pError, 1001 );
             hb_errPutDescription( pError, hb_langDGetErrorDesc( EG_OPEN ) );
             hb_errPutFileName( pError, ( char * ) pOpenInfo->abName );
             hb_errPutFlags( pError, EF_CANRETRY );
@@ -1210,6 +1213,7 @@ static ERRCODE dbfOpenMemFile( AREAP pArea, LPDBOPENINFO pOpenInfo )
          {
             pError = hb_errNew();
             hb_errPutGenCode( pError, EG_OPEN );
+            hb_errPutSubCode( pError, 1002 );
             hb_errPutDescription( pError, hb_langDGetErrorDesc( EG_OPEN ) );
             hb_errPutFileName( pError, ( char * ) pOpenInfo->abName );
             hb_errPutFlags( pError, EF_CANRETRY );
diff --git a/harbour/source/rdd/dbfcdx/dbfcdx1.c b/harbour/source/rdd/dbfcdx/dbfcdx1.c
index 3ec4a436b6..5beea8896b 100644
--- a/harbour/source/rdd/dbfcdx/dbfcdx1.c
+++ b/harbour/source/rdd/dbfcdx/dbfcdx1.c
@@ -323,6 +323,7 @@ static ERRCODE cdxCreateMemFile( AREAP pArea, LPDBOPENINFO pCreateInfo )
          {
             pError = hb_errNew();
             hb_errPutGenCode( pError, EG_CREATE );
+            hb_errPutSubCode( pError, 1005 );
             hb_errPutDescription( pError, hb_langDGetErrorDesc( EG_CREATE ) );
             hb_errPutFileName( pError, ( char * ) pCreateInfo->abName );
             hb_errPutFlags( pError, EF_CANRETRY );
@@ -413,6 +414,7 @@ static ERRCODE cdxOpenMemFile( AREAP pArea, LPDBOPENINFO pOpenInfo )
          {
             pError = hb_errNew();
             hb_errPutGenCode( pError, EG_OPEN );
+            hb_errPutSubCode( pError, 1002 );
             hb_errPutDescription( pError, hb_langDGetErrorDesc( EG_OPEN ) );
             hb_errPutFileName( pError, ( char * ) pOpenInfo->abName );
             hb_errPutFlags( pError, EF_CANRETRY );