diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 841976132f..6416ed836c 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,10 @@
    2009-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
 */
 
+2009-04-28 23:13 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * harbour/source/rdd/dbf1.c
+    ! casting
+
 2009-04-28 21:43 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
   * harbour/contrib/rddads/ads1.c
     ! fixed two typos in last modification - thanks for the info to Mindaugas
diff --git a/harbour/source/rdd/dbf1.c b/harbour/source/rdd/dbf1.c
index afdbc50a2d..03fe82132e 100644
--- a/harbour/source/rdd/dbf1.c
+++ b/harbour/source/rdd/dbf1.c
@@ -425,7 +425,7 @@ static void hb_dbfAllocNullFlag( DBFAREAP pArea, USHORT uiField, BOOL fLength )
    if( !pArea->pFieldBits )
    {
       ULONG ulSize = sizeof( HB_DBFFIELDBITS ) * pArea->uiFieldExtent;
-      pArea->pFieldBits = memset( hb_xgrab( ulSize ), 0, ulSize );
+      pArea->pFieldBits = ( PHB_DBFFIELDBITS ) memset( hb_xgrab( ulSize ), 0, ulSize );
    }
    if( fLength )
       pArea->pFieldBits[ uiField ].uiLengthBit = pArea->uiNullCount++;