From 3b1cdf334babc4ea5001a44eb197c0889cdb6654 Mon Sep 17 00:00:00 2001
From: Horacio Dario Roldan Kasimatis <harbour_ar@yahoo.com.ar>
Date: Tue, 6 Aug 2002 03:12:10 +0000
Subject: [PATCH] 2002-08-05 23:38 UTC-0300 Horacio Roldan
 <harbour_ar@yahoo.com.ar>    * source/rdd/dbcmd.c         ! fix GPF in
 dbCloseAll, reported by Jorge Mason

---
 harbour/source/rdd/dbcmd.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/harbour/source/rdd/dbcmd.c b/harbour/source/rdd/dbcmd.c
index e1c0ea65a9..06d660d5b3 100644
--- a/harbour/source/rdd/dbcmd.c
+++ b/harbour/source/rdd/dbcmd.c
@@ -273,6 +273,8 @@ static void hb_rddCloseAll( void )
       {
          pCurrArea = pAreaNode;
          pAreaNode = pAreaNode->pNext;
+         s_pCurrArea = pCurrArea;
+         s_uiCurrArea = ( ( AREAP ) pCurrArea->pArea )->uiArea;
          if ( isFinish )
          {
             SELF_RELEASE( ( AREAP ) pCurrArea->pArea );