From 6a9dae5e5d84fd25241fff764869aaf4ae972ce8 Mon Sep 17 00:00:00 2001
From: Walter Negro <anegro@overnet.com.ar>
Date: Thu, 25 Apr 2002 13:51:13 +0000
Subject: [PATCH]   * source/rtl/getsys.prg     ! Fix, lost the reference to
 the current oGetList with recursive       execution of ReadModal.

---
 harbour/source/rtl/getsys.prg | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/harbour/source/rtl/getsys.prg b/harbour/source/rtl/getsys.prg
index 071f152a37..371a96d72d 100644
--- a/harbour/source/rtl/getsys.prg
+++ b/harbour/source/rtl/getsys.prg
@@ -70,7 +70,7 @@ FUNCTION ReadModal( GetList, nPos, nMsgRow, nMsgLeft, nMsgRight, cMsgColor )
 FUNCTION ReadModal( GetList, nPos )
 #endif
 
-   LOCAL oGetList
+   LOCAL oGetList, oSaveGetList
 
 #ifdef HB_COMPAT_C53
    LOCAL lMsgFlag
@@ -89,6 +89,7 @@ FUNCTION ReadModal( GetList, nPos )
    oGetList:cReadProcName := ProcName( 1 )
    oGetList:nReadProcLine := ProcLine( 1 )
 
+   oSaveGetList := __GetListActive( )
    __GetListSetActive( oGetList )
 
    IF ! ( ISNUMBER( nPos ) .AND. nPos > 0 )
@@ -159,6 +160,8 @@ FUNCTION ReadModal( GetList, nPos )
    endif
 #endif
 
+   __GetListSetActive( oSaveGetList )
+
    SetPos( MaxRow() - 1, 0 )
 
    RETURN oGetList:lUpdated