diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index c3c5e71e6b..d8351955fe 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,11 @@
+20000402-20:01 GMT+1 Victor Szakats <info@szelvesz.hu>
+
+   * utils/hbtest/hbtest.prg
+     + Shows the percentage of the failures compared to the number of tests.
+
+   * source/rtl/gtapi.c
+     * Minor
+
 20000402-19:37 GMT+1 Victor Szakats <info@szelvesz.hu>
 
    * utils/hbtest/rt_array.prg
@@ -9,15 +17,15 @@
 
    * utils/hbtest/rt_str.prg
    * utils/hbtest/rt_array.prg
-     * STRZERO() and AFILL() test result made dependent on the
+     * STRZERO() and AFILL() test results made dependent on the
        HARBOUR_STRICT_CLIPPER_COMPATIBILITY setting.
 
    * source/vm/arrayshb.c
-     + Added CA-Cl*pper implementation specific runtime error for the 
+     + AFILL() - added CA-Cl*pper implementation specific runtime error for the
        STRICT_COMPATIBLE branch.
-     + Added Harbour specific runtime error on bad parameter.
+     + AFILL() - Added Harbour specific runtime error on bad parameter.
 
-   ; All these modifications cause the Regression Test failure to drop by 8.
+   ; All these modifications cause the Regression Test failures to drop by 8.
 
 20000402-18:50 GMT+1 Victor Szakats <info@szelvesz.hu>
 
diff --git a/harbour/source/rtl/gtapi.c b/harbour/source/rtl/gtapi.c
index 967b1a1e2f..52f4fcd56b 100644
--- a/harbour/source/rtl/gtapi.c
+++ b/harbour/source/rtl/gtapi.c
@@ -442,9 +442,10 @@ USHORT hb_gtSetColorStr( char * fpColorString )
 
    HB_TRACE(HB_TR_DEBUG, ("hb_gtSetColorStr(%s)", fpColorString));
 
-   if( !fpColorString )
+   if( fpColorString == NULL )
       return 1;
-   if( ! *fpColorString )
+
+   if( *fpColorString == '\0' )
    {
       s_Color[ 0 ] = 0x07;
       s_Color[ 1 ] = 0x70;
diff --git a/harbour/utils/hbtest/hbtest.prg b/harbour/utils/hbtest/hbtest.prg
index 5597fbe72c..2f34c14298 100644
--- a/harbour/utils/hbtest/hbtest.prg
+++ b/harbour/utils/hbtest/hbtest.prg
@@ -356,7 +356,7 @@ STATIC FUNCTION TEST_END()
 
    FWrite( s_nFhnd, "===========================================================================" + HB_OSNewLine() +;
                     "Test calls passed: " + Str( s_nPass ) + HB_OSNewLine() +;
-                    "Test calls failed: " + Str( s_nFail ) + HB_OSNewLine() +;
+                    "Test calls failed: " + Str( s_nFail ) + " ( " + LTrim( Str( ( s_nFail / s_nPass ) * 100, 6, 2 ) ) + " % )" + HB_OSNewLine() +;
                     "                   ----------" + HB_OSNewLine() +;
                     "            Total: " + Str( s_nPass + s_nFail ) +;
                     " ( Time elapsed: " + LTrim( Str( s_nEndTime - s_nStartTime ) ) + " seconds )" + HB_OSNewLine() +;