diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 9d7f140f58..9147783c87 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,10 @@
    2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2007-06-29 13:05 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * harbour/source/rdd/hbsix/sxcompr.c
+    ! fixed bug in workaround for SIX3 bug ;-)
+
 2007-06-29 08:15 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
   * harbour/source/rtl/gttrm/gttrm.c
     * minor code reorganization
diff --git a/harbour/source/rdd/hbsix/sxcompr.c b/harbour/source/rdd/hbsix/sxcompr.c
index 6c1c713807..370735ac75 100644
--- a/harbour/source/rdd/hbsix/sxcompr.c
+++ b/harbour/source/rdd/hbsix/sxcompr.c
@@ -695,6 +695,7 @@ HB_FUNC( _SX_STRCOMPRESS )
          /* It's not six compatible - it's a workaround for wrongly defined SIX behavior */
          HB_PUT_LE_UINT32( pBuf, HB_SX_UNCOMPRESED );
          memcpy( pBuf + 4, pStr, ulLen );
+         ulDst = ulLen;
       }
       hb_retclen( ( char * ) pBuf, ulDst + 4 );
       hb_xfree( pBuf );