diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index e69009df7c..a2b764c706 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,11 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2009-11-10 11:54 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * harbour/include/hbset.h
+  * harbour/src/vm/set.c
+    + added new C function hb_setGetOSCP()
+
 2009-11-10 11:00 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
   * harbour/tests/cpinfo.prg
     + try to generate HB_CP_UPPER and HB_CP_LOWER strings which are ready to
diff --git a/harbour/include/hbset.h b/harbour/include/hbset.h
index 14c1f84f0a..d782a9d73a 100644
--- a/harbour/include/hbset.h
+++ b/harbour/include/hbset.h
@@ -331,6 +331,7 @@ extern HB_EXPORT BOOL         hb_setGetTrimFileName( void );
 extern HB_EXPORT const char * hb_setGetHBOUTLOG( void );
 extern HB_EXPORT const char * hb_setGetHBOUTLOGINFO( void );
 extern HB_EXPORT const char * hb_setGetOSCODEPAGE( void );
+extern HB_EXPORT void *       hb_setGetOSCP( void );
 
 HB_EXTERN_END
 
diff --git a/harbour/src/vm/set.c b/harbour/src/vm/set.c
index c77ee28de9..1313e7d6c4 100644
--- a/harbour/src/vm/set.c
+++ b/harbour/src/vm/set.c
@@ -2610,6 +2610,12 @@ const char * hb_setGetOSCODEPAGE( void )
    return hb_stackSetStruct()->HB_SET_OSCODEPAGE;
 }
 
+void * hb_setGetOSCP( void )
+{
+   HB_STACK_TLS_PRELOAD
+   return hb_stackSetStruct()->hb_set_oscp;
+}
+
 const char * hb_osEncodeCP( const char * szName, char ** pszFree, ULONG * pulSize )
 {
    HB_STACK_TLS_PRELOAD