diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index ac1cf5dbf0..ea38b32b96 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,10 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2009-08-11 15:35 UTC-0300 Antonio Carlos Pantaglione <toninho@fwi.com.br>
+  * harbour/contrib/xhb/xcstr.prg
+    ! fixed ValToPrgExp() to not use indexed strings
+
 2009-08-11 17:46 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
   * config/global.cf
   * config/dir.cf
diff --git a/harbour/contrib/xhb/xcstr.prg b/harbour/contrib/xhb/xcstr.prg
index 09755d845d..f20891cea8 100644
--- a/harbour/contrib/xhb/xcstr.prg
+++ b/harbour/contrib/xhb/xcstr.prg
@@ -195,8 +195,7 @@ FUNCTION ValToPrg( xVal, cName, nPad, aObjs )
             NEXT
 
             /* We know for sure xVal isn't empty, and a last ',' is here */
-            cRet[ -2 ] := ' '
-            cRet[ -1 ] := '}'
+            cRet = SubStr( cRet, 1, Len( cRet ) - 2 ) + " }"
 
             RETURN cRet
          ENDIF