From 8a09b98c7bdeffa43e75fa926e22b4e08c98d7b4 Mon Sep 17 00:00:00 2001
From: Martin Vogel <vogel@inttec.de>
Date: Wed, 25 Sep 2002 18:03:16 +0000
Subject: [PATCH] 2002-09-25 20:00 GMT+0100 Martin Vogel <vogel@inttec.de>

---
 harbour/ChangeLog               | 4 ++++
 harbour/contrib/libct/color.prg | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 942321c244..52c43a0b43 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,10 @@
    2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2002-09-25 20:00 GMT+0100 Martin Vogel <vogel@inttec.de>
+  * contrib/libct/color.prg
+    ! fixed initialization bug reported by Marek Horodyski<homar@altkom.com.pl>
+
 2002-09-25 13:15 UTC+0300 Gustavo Junior Alves <alves@coslinux.com.br>
   * source/rtl/file.c
   * source/rtl/filesys.c
diff --git a/harbour/contrib/libct/color.prg b/harbour/contrib/libct/color.prg
index 53ca525854..522390b709 100644
--- a/harbour/contrib/libct/color.prg
+++ b/harbour/contrib/libct/color.prg
@@ -214,7 +214,7 @@ FUNCTION COLORTON( cColor )
 
   local cColorFore, cColorBack
   local nColorFore, nColorBack
-  local lHiColor, lBlinking
+  local lHiColor := .f., lBlinking := .f.
   local nSep
 
   if valtype( cColor ) == "N"