diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index b368715757..2aa741c014 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,7 @@
+2001-05-21 08:30 GMT -3 Luiz Rafael Culik <culik@sl.conex.net>
+   * source/rtl/gtapi.c
+     * fixed an small bug on hb_gtBoxD() reported by Jacek Kaleta
+
 2001-05-21 07:20 UTC+1 JFL (mafact) <jfl@mafact.com>
    * harbour/source/vm/classes.c
      * hb_objGetRealClsName(object, szmsg )
diff --git a/harbour/source/rtl/gtapi.c b/harbour/source/rtl/gtapi.c
index 23af36e2ff..8959cde971 100644
--- a/harbour/source/rtl/gtapi.c
+++ b/harbour/source/rtl/gtapi.c
@@ -212,10 +212,10 @@ USHORT hb_gtBoxD( USHORT uiTop, USHORT uiLeft, USHORT uiBottom, USHORT uiRight )
          if( uiLeft != uiRight )
             hb_gt_BoxD( uiTop, uiLeft, uiBottom, uiRight, ( BYTE * ) _B_DOUBLE, ( BYTE ) s_pColor[ s_uiColorIndex ] );
          else
-            hb_gt_VertLine( uiLeft, uiTop, uiBottom, HB_B_DOUBLE_H, ( BYTE ) s_pColor[ s_uiColorIndex ] );
+            hb_gt_VertLine( uiLeft, uiTop, uiBottom, HB_B_DOUBLE_V, ( BYTE ) s_pColor[ s_uiColorIndex ] );
       }
       else
-         hb_gt_HorizLine( uiTop, uiLeft, uiRight, HB_B_DOUBLE_V, ( BYTE ) s_pColor[ s_uiColorIndex ] );
+         hb_gt_HorizLine( uiTop, uiLeft, uiRight, HB_B_DOUBLE_H, ( BYTE ) s_pColor[ s_uiColorIndex ] );
 
       hb_gtSetPosContext( uiTop + 1, uiLeft + 1, HB_GT_SET_POS_AFTER );