diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 9a1d226165..7c19754e02 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,7 @@
+19990727-19:48 GMT+1 Bruno Cantero <bruno@issnet.net>
+   * source/rdd/dbcmd.c
+     Fixed a GFP (Paul, test it)
+
 19990727-19:18 GMT+1 Bruno Cantero <bruno@issnet.net>
    * source/rdd/dbfntx1.c
      Fixed a bug
diff --git a/harbour/source/rdd/dbcmd.c b/harbour/source/rdd/dbcmd.c
index 6261b523c3..1ec89c83d7 100644
--- a/harbour/source/rdd/dbcmd.c
+++ b/harbour/source/rdd/dbcmd.c
@@ -112,7 +112,7 @@ void hb_rddInitialize( void )
    szDefDriver = ( char * ) hb_xgrab( 1 );
    szDefDriver[ 0 ] = '\0';
    pWorkAreas = ( AREAP ) hb_xgrab( sizeof( AREA ) );
-   memset(pWorkAreas, 0, sizeof(AREA));
+//   memset(pWorkAreas, 0, sizeof(AREA));
    uiWorkAreas = 1;
 }