diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index c2204f34d7..e43af5e88c 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,13 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2009-07-08 11:28 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
+  * source/rtl/gtfunc.c
+  * source/rtl/datec.c
+  * source/rtl/langapi.c
+  * source/rtl/natmsg.c
+    % Using hb_retc_const() in some less obvious cases.
+
 2009-07-08 11:13 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
   * harbour/include/hbmath.h
     ! fixed C++ DJGPP builds
diff --git a/harbour/source/rtl/datec.c b/harbour/source/rtl/datec.c
index dcec6cf5ee..86134ef9b9 100644
--- a/harbour/source/rtl/datec.c
+++ b/harbour/source/rtl/datec.c
@@ -85,7 +85,7 @@ HB_FUNC( CMONTH )
       int iYear, iMonth, iDay;
 
       hb_dateDecode( hb_itemGetDL( pDate ), &iYear, &iMonth, &iDay );
-      hb_retc( hb_dateCMonth( iMonth ) );
+      hb_retc_const( hb_dateCMonth( iMonth ) );
    }
    else
       hb_errRT_BASE_SubstR( EG_ARG, 1116, NULL, HB_ERR_FUNCNAME, HB_ERR_ARGS_BASEPARAMS );
@@ -104,7 +104,7 @@ HB_FUNC( CDOW )
          int iYear, iMonth, iDay;
 
          hb_dateDecode( lDate, &iYear, &iMonth, &iDay );
-         hb_retc( hb_dateCDOW( hb_dateDOW( iYear, iMonth, iDay ) ) );
+         hb_retc_const( hb_dateCDOW( hb_dateDOW( iYear, iMonth, iDay ) ) );
       }
       else
          hb_retc_null();
diff --git a/harbour/source/rtl/gtfunc.c b/harbour/source/rtl/gtfunc.c
index 649de08a59..d6c4bc86ea 100644
--- a/harbour/source/rtl/gtfunc.c
+++ b/harbour/source/rtl/gtfunc.c
@@ -114,7 +114,7 @@ HB_FUNC( HB_GTINFO )
 
 HB_FUNC( HB_GTVERSION )
 {
-   hb_retc( hb_gtVersion( hb_parni( 1 ) ) );
+   hb_retc_const( hb_gtVersion( hb_parni( 1 ) ) );
 }
 
 HB_FUNC( HB_GTALERT )
diff --git a/harbour/source/rtl/langapi.c b/harbour/source/rtl/langapi.c
index e02c9ea9cc..81e95f1589 100644
--- a/harbour/source/rtl/langapi.c
+++ b/harbour/source/rtl/langapi.c
@@ -384,10 +384,10 @@ HB_FUNC( HB_LANGNAME )
 
 HB_FUNC( HB_LANGERRMSG )
 {
-   hb_retc( hb_langDGetErrorDesc( hb_parnl( 1 ) ) );
+   hb_retc_const( hb_langDGetErrorDesc( hb_parnl( 1 ) ) );
 }
 
 HB_FUNC( HB_LANGMESSAGE )
 {
-   hb_retc( hb_langDGetItem( hb_parnl( 1 ) ) );
+   hb_retc_const( hb_langDGetItem( hb_parnl( 1 ) ) );
 }
diff --git a/harbour/source/rtl/natmsg.c b/harbour/source/rtl/natmsg.c
index 50ba6a5834..687374035f 100644
--- a/harbour/source/rtl/natmsg.c
+++ b/harbour/source/rtl/natmsg.c
@@ -111,7 +111,7 @@ HB_FUNC( __NATMSG )
       /* TODO: Replace this with Language API call. */
       hb_retc_const( "Invalid argument" );
    else if( HB_ISNUM( 1 ) )
-      hb_retc( hb_nationGetMsg( hb_parni( 1 ) ) );
+      hb_retc_const( hb_nationGetMsg( hb_parni( 1 ) ) );
    else
       hb_retc_null();
 }