diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index c48de38448..7d83ff37f4 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,7 @@
+2001-03-27 05:18 GMT-3 Horacio Roldan <horacioroldan@usa.net>
+   * harbour/source/rdd/dbcmd.c
+     * fixed unallocated memory block in dbcreate
+
 2001-02-26 19:10 GMT -3 Luiz Rafael Culik <culik@sl.conex.net>
    *utils/hbmake/hbmake.prg
       +Added support yo build librarys
diff --git a/harbour/source/rdd/dbcmd.c b/harbour/source/rdd/dbcmd.c
index ff5ffd0d20..b1f1add4cf 100644
--- a/harbour/source/rdd/dbcmd.c
+++ b/harbour/source/rdd/dbcmd.c
@@ -1280,6 +1280,7 @@ HB_FUNC( DBCREATE )
 
    if( SELF_CREATE( ( AREAP ) s_pCurrArea->pArea, &pInfo ) == FAILURE )
    {
+      hb_xfree( szFileName );
       hb_rddReleaseCurrentArea();
       hb_errRT_DBCMD( EG_ARG, EDBCMD_BADPARAMETER, NULL, "DBCREATE" );
       return;
@@ -1287,6 +1288,7 @@ HB_FUNC( DBCREATE )
 
    if( !bOpen )
    {
+      hb_xfree( szFileName );
       hb_rddReleaseCurrentArea();
       hb_rddSelectWorkAreaNumber( uiPrevArea );
    }