diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 146ce92ef7..2d0de9e15d 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,8 @@
+2001-10-23 20:08 GMT-3 Horacio Roldan <harbour_ar@yahoo.com.ar>
+   * source/rdd/dbcmd.c
+     ! Fixed bug in dbCreate, that affected DBF RDD derived 
+       (ntx & cdx) with memo files.
+
 2001-10-23 14:10 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>
   ! source/rdd/dbfntx1.c
      ! fixed support of numeric indexes for negative numbers
diff --git a/harbour/source/rdd/dbcmd.c b/harbour/source/rdd/dbcmd.c
index 432c7dc8ce..7ef78e529b 100644
--- a/harbour/source/rdd/dbcmd.c
+++ b/harbour/source/rdd/dbcmd.c
@@ -1306,6 +1306,7 @@ HB_FUNC( DBCREATE )
       return;
    }
 
+   hb_xfree( szFileName );
    if( !bOpen )
    {
       hb_rddReleaseCurrentArea();
@@ -1327,7 +1328,9 @@ HB_FUNC( DBCREATE )
       ( ( AREAP ) s_pCurrArea->pArea )->lprfsHost = lprfsHost;
       ( ( AREAP ) s_pCurrArea->pArea )->rddID = uiRddID;
       SELF_NEW( ( AREAP ) s_pCurrArea->pArea );
-      pInfo.abName = ( BYTE * )  hb_xgrab( _POSIX_PATH_MAX + 1 );
+      //pInfo.abName = ( BYTE * )  hb_xgrab( _POSIX_PATH_MAX + 1 );
+      szFileName = ( BYTE * )  hb_xgrab( _POSIX_PATH_MAX + 1 );
+      pInfo.abName = szFileName;
       strcpy( ( char * ) pInfo.abName, szSavedFileName );
       pInfo.fShared = !hb_set.HB_SET_EXCLUSIVE;
       ( ( AREAP ) s_pCurrArea->pArea )->uiArea = s_uiCurrArea;
@@ -1338,9 +1341,10 @@ HB_FUNC( DBCREATE )
       }
       else
          hb_retl( TRUE );
-      hb_xfree( pInfo.abName );
+      //hb_xfree( pInfo.abName );
+      hb_xfree( szFileName );
    }
-   hb_xfree( szFileName );
+   //hb_xfree( szFileName );
 }
 
 HB_FUNC( DBDELETE )
@@ -3648,4 +3652,3 @@ HB_FUNC( __DBCOPY )
   }
 }
 
-