diff --git a/harbour/source/rdd/dbfcdx/dbfcdx1.c b/harbour/source/rdd/dbfcdx/dbfcdx1.c
index c526875d84..4b142645c8 100644
--- a/harbour/source/rdd/dbfcdx/dbfcdx1.c
+++ b/harbour/source/rdd/dbfcdx/dbfcdx1.c
@@ -3746,10 +3746,12 @@ static ERRCODE hb_cdxOrderCreate( CDXAREAP pAreaCdx, LPDBORDERCREATEINFO pOrderI
       pFileName = hb_fsFNameSplit( pAreaCdx->szDataFileName );
       hb_strncpyUpper( szFileName, pFileName->szName, CDX_MAXTAGNAMELEN );
       hb_xfree( pFileName );
+      hb_fsSeek( pAreaCdx->hDataFile, 0, FS_SET );
       if( strcmp( szFileName, szTagName ) == 0 && hb_fsRead( pAreaCdx->hDataFile,
           ( BYTE * ) &pHeader, sizeof( DBFHEADER ) ) == sizeof( DBFHEADER ) )
       {
          pHeader.bHasTags = 1;
+         hb_fsSeek( pAreaCdx->hDataFile, 0, FS_SET );
          hb_fsWrite( pAreaCdx->hDataFile, ( BYTE * ) &pHeader, sizeof( DBFHEADER ) );
       }
    }