diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 5764678eda..1d79e6e389 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,10 @@
    2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2002-06-27 22:30 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
+  * source/rdd/workarea.c
+    ! Bug fixed in hb_waSetRel(), reported by Richard  Chidiak
+
 2002-06-26 19:20 UTC-0400 David G. Holm <dholm@jsd-llc.com>
   * source/pp/ppcore.c
     ! Increase the loop limit used to detect cyclic #defines from 20 to 750.
diff --git a/harbour/source/rdd/workarea.c b/harbour/source/rdd/workarea.c
index 46dc0f114c..5a97e7a4c6 100644
--- a/harbour/source/rdd/workarea.c
+++ b/harbour/source/rdd/workarea.c
@@ -849,7 +849,7 @@ ERRCODE hb_waSetRel( AREAP pArea, LPDBRELINFO lpdbRelInf )
    lpdbRelations->abKey = lpdbRelInf->abKey;
    lpdbRelations->lpdbriNext = lpdbRelInf->lpdbriNext;
 
-   hb_waChildStart( lpdbRelInf->lpaChild,lpdbRelInf );
+   SELF_CHILDSTART( ( AREAP ) lpdbRelInf->lpaChild,lpdbRelations );
 
    return SUCCESS;
 }