diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 316d71a794..bdcfe9f1ef 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,16 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2010-01-11 10:21 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
+  * contrib/hbqt/hbqt_destruct.cpp
+    + HBQT_SETCODECFORTR()
+
+  * contrib/hbxbp/xbpgeneric.prg
+    + HbXbp_SetCodecForTr( cCodec )
+
+      A step closer to internationalization.
+      I do not know yet what other steps be needed but...
+
 2010-01-11 08:20 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
   * contrib/hbide/ideprojmanager.prg
     ! Fixed bug reported by Marco Bra
diff --git a/harbour/contrib/hbqt/hbqt_destruct.cpp b/harbour/contrib/hbqt/hbqt_destruct.cpp
index a31523b79a..ea1b27abef 100644
--- a/harbour/contrib/hbqt/hbqt_destruct.cpp
+++ b/harbour/contrib/hbqt/hbqt_destruct.cpp
@@ -133,6 +133,12 @@ HB_FUNC( HBQT_SETCODECFORCSTRINGS )
    QTextCodec::setCodecForCStrings( codec );
 }
 
+HB_FUNC( HBQT_SETCODECFORTR )
+{
+   QTextCodec * codec = QTextCodec::codecForName( ( char * ) hb_parc( 1 ) );
+   QTextCodec::setCodecForTr( codec );
+}
+
 /*----------------------------------------------------------------------*/
 
 #endif                  // #if QT_VERSION >= 0x040500
diff --git a/harbour/contrib/hbxbp/xbpgeneric.prg b/harbour/contrib/hbxbp/xbpgeneric.prg
index 167e759909..ea5506280d 100644
--- a/harbour/contrib/hbxbp/xbpgeneric.prg
+++ b/harbour/contrib/hbxbp/xbpgeneric.prg
@@ -388,3 +388,11 @@ FUNCTION HbXbp_SetCodec( cCodec )
    RETURN NIL
 
 /*----------------------------------------------------------------------*/
+
+FUNCTION HbXbp_SetCodecForTr( cCodec )
+   IF !empty( cCodec )
+      hbqt_SetCodecForTr( cCodec )
+   ENDIF
+   RETURN NIL
+
+/*----------------------------------------------------------------------*/