diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 0322a37a8d..37957ac835 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,7 @@
+19991006-20:11 GMT+1 Victor Szel <info@szelvesz.hu>
+   * source/rtl/tgetlist.prg
+     ! ReadExit() added back as method.
+
 19991006-19:14 GMT+1 Antonio Linares <alinares@fivetech.com>
    * source/rtl/classes.c
      * Fixed bug for CLASSDATAs INIT clause.
diff --git a/harbour/source/rtl/tgetlist.prg b/harbour/source/rtl/tgetlist.prg
index d0f04601df..a8df882930 100644
--- a/harbour/source/rtl/tgetlist.prg
+++ b/harbour/source/rtl/tgetlist.prg
@@ -105,6 +105,7 @@ CLASS TGetList
    METHOD GetActive( oGet )
    METHOD ShowScoreBoard()
    METHOD ReadVar( cNewVarName )
+   METHOD ReadExit( lNew ) INLINE Set( _SET_EXIT, lNew )
 
 ENDCLASS