diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index d48539e76a..b48aa0f0f8 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,8 @@
+19990718-22:25 EDT Paul Tucker <ptucker@sympatico.ca>
+  * source/rtl/gtapi.c
+    * corrected returned color strings so pair ordering is
+      the same as Clipper
+
 19990718-21:20 EDT Paul Tucker <ptucker@sympatico.ca>
   * source/rtl/gt/gtwin.c
     * call hb_gtinit from gtinit
diff --git a/harbour/source/rtl/gtapi.c b/harbour/source/rtl/gtapi.c
index cf33a0e11e..793393c724 100644
--- a/harbour/source/rtl/gtapi.c
+++ b/harbour/source/rtl/gtapi.c
@@ -6,6 +6,8 @@
  *  GTAPI.C: Generic Terminal for Harbour
  *
  * Latest mods:
+ * 1.24   19990718   ptucker   corrected returned color strings so ordering
+ *                             is the same as clipper.
  * 1.23   19990718   ptucker   implimented surface for gtGet/SetColorStr()
  *                             changed to allow unlimited color pairs.
  */
@@ -265,14 +267,14 @@ int hb_gtGetColorStr(char * fpColorString)
                     sColors[k++] = 'N';
                 else
                 {
-                    if( nColor & 4 )
-                        sColors[k++] = 'R';
+                    if( nColor & 1 )
+                        sColors[k++] = 'B';
 
                     if( nColor & 2 )
                         sColors[k++] = 'G';
 
-                    if( nColor & 1 )
-                        sColors[k++] = 'B';
+                    if( nColor & 4 )
+                        sColors[k++] = 'R';
                 }
             }
             if( j == 0 )