From 4307f615c883a031675cbbce5c44b23c5331af0b Mon Sep 17 00:00:00 2001
From: "Alexander S.Kresin" <alex@belacy.belgorod.su>
Date: Mon, 21 Aug 2000 11:20:21 +0000
Subject: [PATCH] 2000-08-21 15:18 GMT+3 Alexander Kresin
 <alex@belacy.belgorod.su>

---
 harbour/ChangeLog          | 5 +++++
 harbour/source/rdd/dbcmd.c | 3 ++-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index b23ff879e5..151e2485c9 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,8 @@
+2000-08-21 15:18 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>
+   *source/rdd/dbcmd.c
+     * fixed bugs, reported by Juergen Baez
+
+
 2000-08-17 12:18 UTC+0100 Victor Szakats <info@szelvesz.hu>
 
    * include/hbver.h
diff --git a/harbour/source/rdd/dbcmd.c b/harbour/source/rdd/dbcmd.c
index 28b16e1f09..9fb64f2cff 100644
--- a/harbour/source/rdd/dbcmd.c
+++ b/harbour/source/rdd/dbcmd.c
@@ -399,6 +399,7 @@ static ERRCODE defclearRel( AREAP pArea )
          hb_xfree( lpdbRelPrev );
       }
       while( lpdbRelations );
+      pArea->lpdbRelations = NULL;
    }
    return SUCCESS;
 }
@@ -416,7 +417,7 @@ static ERRCODE defsetRel( AREAP pArea, LPDBRELINFO lpdbRelInf )
    }
    else
    {
-      while( ! lpdbRelations->lpdbriNext )
+      while( lpdbRelations->lpdbriNext )
          lpdbRelations = lpdbRelations->lpdbriNext;
       lpdbRelations->lpdbriNext = ( LPDBRELINFO ) hb_xgrab( sizeof( DBRELINFO ) );
       lpdbRelations = lpdbRelations->lpdbriNext;