diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 873641d6b8..bfc1fa241a 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,10 @@
    2008-12-31 13:59 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2008-07-31 23:02 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * harbour/source/rdd/hbsix/sxcompr.c
+    * pacified warnings
+
 2008-07-31 22:49 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
   * harbour/contrib/hbmzip/hbmzip.c
     ! added "b" to fopen() flags to force binary mode in all systems 
diff --git a/harbour/source/rdd/hbsix/sxcompr.c b/harbour/source/rdd/hbsix/sxcompr.c
index 91a1f14353..4d711b0bae 100644
--- a/harbour/source/rdd/hbsix/sxcompr.c
+++ b/harbour/source/rdd/hbsix/sxcompr.c
@@ -529,15 +529,15 @@ static ULONG hb_LZSSxEncode( PHB_LZSSX_COMPR pCompr )
          pCompr->ring_buffer[ s ] = ( BYTE ) c;
          if( s < MAXLENGTH - 1 )
             pCompr->ring_buffer[ s + RBUFLENGTH ] = ( BYTE ) c;
-         s = RBUFINDEX( s + 1 );
-         r = RBUFINDEX( r + 1 );
+         s = ( short int ) RBUFINDEX( s + 1 );
+         r = ( short int ) RBUFINDEX( r + 1 );
          hb_LZSSxNodeInsert( pCompr, r );
       }
       while( i++ < last_match_length )
       {
          hb_LZSSxNodeDelete( pCompr, s );
-         s = RBUFINDEX( s + 1 );
-         r = RBUFINDEX( r + 1 );
+         s = ( short int ) RBUFINDEX( s + 1 );
+         r = ( short int ) RBUFINDEX( r + 1 );
          if( --len )
             hb_LZSSxNodeInsert( pCompr, r );
       }