diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 6c7eeb805d..db23d99b71 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,10 @@
    2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2003-03-26 16:55 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
+  * source/rdd/dbcmd.c
+    ! Bug fixed related to COPY TO .. FIELDS ..., reported by Lorenzo Fiorini
+
 2003-03-26 11:30 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
   * source/rdd/dbfntx/dbfntx1.c
     ! Bug fixed, reported by Andrew McCumiskey
diff --git a/harbour/source/rdd/dbcmd.c b/harbour/source/rdd/dbcmd.c
index 98f7860549..0bfc364a65 100644
--- a/harbour/source/rdd/dbcmd.c
+++ b/harbour/source/rdd/dbcmd.c
@@ -3603,7 +3603,7 @@ static LPAREANODE GetTheOtherArea( char *szDriver, char * szFileName, BOOL creat
        USHORT i;
        int iLen;
        char *ptr;
-       char *szFieldName = hb_xgrab( ((AREAP) s_pCurrArea->pArea)->uiMaxFieldNameLength );
+       char *szFieldName = hb_xgrab( ((AREAP) s_pCurrArea->pArea)->uiMaxFieldNameLength+1 );
 
        uiFields = ( USHORT ) hb_arrayLen( pFields );
        for ( i=0; i<uiFields; i++ )