From a56d017fd2770b365fe0c6f6095bcdd5be486e07 Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Thu, 7 Oct 1999 07:22:59 +0000
Subject: [PATCH] *** empty log message ***

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

diff --git a/harbour/source/rtl/tclass.prg b/harbour/source/rtl/tclass.prg
index a9d1793671..378c8cfa3c 100644
--- a/harbour/source/rtl/tclass.prg
+++ b/harbour/source/rtl/tclass.prg
@@ -260,6 +260,10 @@ STATIC FUNCTION SetType( cType )
 
    ::cType := cType
 
+   if cType != nil .and. Upper( cType ) == "LOGICAL" .and. ::uInit == nil
+      ::uInit = .f.
+   endif
+
    RETURN NIL
 
 //----------------------------------------------------------------------------//