diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index dae779b1d9..b8adcc92d1 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,7 @@
+20000316-04:10 EST Paul Tucker <ptucker@sympatico.ca>
+   * source/rtl/gt/gtpca.c
+     * added casts
+
 20000316-02:50 EST Paul Tucker <ptucker@sympatico.ca>
    * source/rtl/gtapi.c
      * removed extraneous ';'
diff --git a/harbour/source/rtl/gt/gtpca.c b/harbour/source/rtl/gt/gtpca.c
index aa9ac148ab..2549f26363 100644
--- a/harbour/source/rtl/gt/gtpca.c
+++ b/harbour/source/rtl/gt/gtpca.c
@@ -248,7 +248,7 @@ void hb_gt_Scroll( USHORT usTop, USHORT usLeft, USHORT usBottom, USHORT usRight,
          USHORT i;
          for( i = usTop; i <= usBottom; i++ )
          {
-            hb_gt_Puts( i, usLeft, s_iAttribute, s_szSpaces, (usRight - usLeft ) + 1 );
+            hb_gt_Puts( i, usLeft, s_iAttribute, ( BYTE * )s_szSpaces, (usRight - usLeft ) + 1 );
          }
       }
    }
@@ -303,7 +303,7 @@ void hb_gt_Puts( USHORT usRow, USHORT usCol, BYTE attr, BYTE * str, ULONG len )
    str[ len ] = save;
    /* Update the cursor position */
    s_usRow = usRow;
-   s_usCol = usCol + len;
+   s_usCol = usCol + ( USHORT )len;
    if( s_usCol > s_usMaxCol ) s_usCol = s_usMaxCol;
 }