diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index b6fcaf5e1c..22c911dadd 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -16,6 +16,12 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2010-09-27 11:54 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * harbour/contrib/hbwin/hbwinole.h
+  * harbour/contrib/hbwin/olecore.c
+    + C functions hb_oleItemGetDispatch() and hb_oleDispatchToItem() made
+      public
+
 2010-09-26 23:03 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
   * utils/hbmk2/hbmk2.prg
     + Harbour environment autodetection will now work if pathseps 
diff --git a/harbour/contrib/hbwin/hbwinole.h b/harbour/contrib/hbwin/hbwinole.h
index 5848c2ea22..c4b5295638 100644
--- a/harbour/contrib/hbwin/hbwinole.h
+++ b/harbour/contrib/hbwin/hbwinole.h
@@ -146,6 +146,8 @@ typedef HB_BOOL ( * HB_OLEOBJ_FUNC )( VARIANT*, PHB_ITEM );
 extern HB_EXPORT HB_BOOL    hb_oleInit( void );
 extern HB_EXPORT HRESULT    hb_oleGetError( void );
 extern HB_EXPORT void       hb_oleSetError( HRESULT lOleError );
+extern HB_EXPORT void       hb_oleDispatchToItem( PHB_ITEM pItem, IDispatch* pdispVal, HB_USHORT uiClass );
+extern HB_EXPORT IDispatch* hb_oleItemGetDispatch( PHB_ITEM pItem );
 extern HB_EXPORT void       hb_oleVariantToItem( PHB_ITEM pItem, VARIANT * pVariant );
 extern HB_EXPORT void       hb_oleVariantToItemEx( PHB_ITEM pItem, VARIANT* pVariant, HB_USHORT uiClass );
 extern HB_EXPORT void       hb_oleItemToVariant( VARIANT * pVariant, PHB_ITEM pItem );
diff --git a/harbour/contrib/hbwin/olecore.c b/harbour/contrib/hbwin/olecore.c
index c7ebbf08be..8e10661a07 100644
--- a/harbour/contrib/hbwin/olecore.c
+++ b/harbour/contrib/hbwin/olecore.c
@@ -314,7 +314,7 @@ static void hb_oleStringToItem( BSTR strVal, PHB_ITEM pItem )
 }
 
 
-static IDispatch * hb_oleItemGetDispatch( PHB_ITEM pItem )
+IDispatch * hb_oleItemGetDispatch( PHB_ITEM pItem )
 {
    if( HB_IS_OBJECT( pItem ) )
    {
@@ -601,7 +601,7 @@ static void hb_oleSafeArrayToItem( PHB_ITEM pItem, SAFEARRAY * pSafeArray,
 }
 
 
-static void hb_oleDispatchToItem( PHB_ITEM pItem, IDispatch* pdispVal, HB_USHORT uiClass )
+void hb_oleDispatchToItem( PHB_ITEM pItem, IDispatch* pdispVal, HB_USHORT uiClass )
 {
    if( pdispVal )
    {