diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 2fbe45ee08..3a2fa2f1ac 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,11 @@
    2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2003-08-04 14:00 UTC-0400 David G. Holm <dholm@jsd-llc.com>
+  * source/rtl/gtapi.c
+    ! Enforce Clipper compatibility for SCROLL by only calling hb_gt_Scroll
+      from hb_gtScroll if left <= right and top <= bottom.
+
 2003-07-30 14:30 UTC-0400 David G. Holm <dholm@jsd-llc.com>
   * include/set.ch
     ! Indicate that there are six (6) Harbour SET extensions.
diff --git a/harbour/source/rtl/gtapi.c b/harbour/source/rtl/gtapi.c
index 8bfcc48204..008cc1c81b 100644
--- a/harbour/source/rtl/gtapi.c
+++ b/harbour/source/rtl/gtapi.c
@@ -1035,9 +1035,12 @@ USHORT hb_gtScroll( USHORT uiTop, USHORT uiLeft, USHORT uiBottom, USHORT uiRight
 {
    HB_TRACE(HB_TR_DEBUG, ("hb_gtScroll(%hu, %hu, %hu, %hu, %hd, %hd)", uiTop, uiLeft, uiBottom, uiRight, iRows, iCols));
 
-   hb_gt_Scroll( uiTop, uiLeft, uiBottom, uiRight, ( BYTE ) s_pColor[ s_uiColorIndex ], iRows, iCols );
-
-   return 0;
+   if( uiTop <= uiBottom && uiLeft <= uiRight )
+   {
+      hb_gt_Scroll( uiTop, uiLeft, uiBottom, uiRight, ( BYTE ) s_pColor[ s_uiColorIndex ], iRows, iCols );
+      return 0;
+   }
+   return 1; /* Failed to scroll */
 }
 
 /* NOTE: It would be better if the clipping was done by the low level API */