From 2cdf886666da5be055f82b1c62a7ada174fe9bb4 Mon Sep 17 00:00:00 2001
From: Walter Negro <anegro@overnet.com.ar>
Date: Fri, 21 Jun 2002 14:51:20 +0000
Subject: [PATCH]   * source\rtl\getsys.prg     ! Fix call to SET() without
 setting values.       ReadExit() and ReadInsert()

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

diff --git a/harbour/source/rtl/getsys.prg b/harbour/source/rtl/getsys.prg
index 41f0081d19..4be095baf2 100644
--- a/harbour/source/rtl/getsys.prg
+++ b/harbour/source/rtl/getsys.prg
@@ -236,10 +236,10 @@ FUNCTION GetPostValidate( oGet )
    RETURN .F.
 
 FUNCTION ReadExit( lExit )
-   RETURN Set( _SET_EXIT, lExit )
+   RETURN IF( ISLOGICAL( lExit ), Set( _SET_EXIT, lExit ), Set( _SET_EXIT ) )
 
 FUNCTION ReadInsert( lInsert )
-   RETURN Set( _SET_INSERT, lInsert )
+   RETURN IF( ISLOGICAL( lInsert ), Set( _SET_INSERT, lInsert ), Set( _SET_INSERT ) )
 
 FUNCTION ReadUpdated( lUpdated )
 /*   LOCAL oGetList := __GetListActive() */