diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 891f340183..a7af8b74a3 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,8 @@
+2000-07-12 14:05 UTC-0400 David G. Holm <dholm@jsd-llc.com>
+
+   * source/rdd/dbcmd.c
+     ! Added missing ( AREAP ) type override on line 3529.
+
 2000-07-12 21:41 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>
      *contrib/rdd_ads/ads1.c
      * Warning fixed, reported by David G. Holm
diff --git a/harbour/source/rdd/dbcmd.c b/harbour/source/rdd/dbcmd.c
index 09e3642eb5..5d5034bd67 100644
--- a/harbour/source/rdd/dbcmd.c
+++ b/harbour/source/rdd/dbcmd.c
@@ -3526,7 +3526,7 @@ HB_FUNC( DBSETRELATION )
          return;
       }
 
-      dbRelations.lpaChild = s_pArea->pArea;
+      dbRelations.lpaChild = ( AREAP ) s_pArea->pArea;
       dbRelations.itmCobExpr = hb_param( 2, HB_IT_BLOCK );
       dbRelations.abKey = hb_param( 3, HB_IT_STRING );
       dbRelations.lpdbriNext = NULL;