* source/rtl/getsys.prg

! Fix, lost the reference to the current oGetList with recursive
      execution of ReadModal.

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