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
 
 //----------------------------------------------------------------------------//