diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index a046fc0a1f..3b1dc66d26 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,7 @@
+2001-06-16 20:40 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>
+   * source/rdd/dbcmd.c
+     ! Bug fixed in dbCreate(), which caused unreleased memory blocks.
+
 2001-06-15 23:35 UTC+1 JFL (mafact) <jfl@mafact.com>
    * harbour/source/vm/Classe.c
      * Hb_ClsScope finally working :-(
diff --git a/harbour/source/rdd/dbcmd.c b/harbour/source/rdd/dbcmd.c
index 2a5efffd62..278d90540a 100644
--- a/harbour/source/rdd/dbcmd.c
+++ b/harbour/source/rdd/dbcmd.c
@@ -1288,7 +1288,6 @@ HB_FUNC( DBCREATE )
 
    if( !bOpen )
    {
-      hb_xfree( szFileName );
       hb_rddReleaseCurrentArea();
       hb_rddSelectWorkAreaNumber( uiPrevArea );
    }
@@ -1313,10 +1312,15 @@ HB_FUNC( DBCREATE )
       pInfo.fShared = !hb_set.HB_SET_EXCLUSIVE;
       ( ( AREAP ) s_pCurrArea->pArea )->uiArea = s_uiCurrArea;
       if( SELF_OPEN( ( AREAP ) s_pCurrArea->pArea, &pInfo ) == FAILURE )
+      {
+         s_bNetError = TRUE;           /* Temp fix! What about other types of errors? */
          hb_rddReleaseCurrentArea();
+      }
       else
          hb_retl( TRUE );
+      hb_xfree( pInfo.abName );
    }
+   hb_xfree( szFileName );
 }
 
 HB_FUNC( DBDELETE )