diff --git a/harbour/include/hbapi.h b/harbour/include/hbapi.h
index 91046d28bd..44cc215760 100644
--- a/harbour/include/hbapi.h
+++ b/harbour/include/hbapi.h
@@ -440,6 +440,7 @@ extern double   hb_numRound( double dResult, int iDec ); /* round a number to a
 
 /* class management */
 extern void     hb_clsReleaseAll( void );    /* releases all defined classes */
+extern BOOL     hb_clsIsParent( USHORT uiClass, char * szParentName ); /* is a class handle inherited from szParentName Class ? */
 
 /* object management */
 extern char *   hb_objGetClsName( PHB_ITEM pObject ); /* retrieves an object class name */
@@ -618,4 +619,3 @@ extern char * hb_getenv( const char * name );
 #endif
 
 #endif /* HB_APIEXT_H_ */
-
diff --git a/harbour/source/vm/classes.c b/harbour/source/vm/classes.c
index 47983ecc85..22c62436d5 100644
--- a/harbour/source/vm/classes.c
+++ b/harbour/source/vm/classes.c
@@ -203,7 +203,7 @@ static PHB_DYNS s_msgClsParent = NULL;
 static PHB_ITEM hb_clsInst( USHORT uiClass );
 static void     hb_clsScope( PHB_ITEM pObject, PMETHOD pMethod );
 static ULONG    hb_cls_MsgToNum( PHB_DYNS pMsg );
-static BOOL     hb_clsIsParent( USHORT uiClass, char * szParentName );
+       BOOL     hb_clsIsParent( USHORT uiClass, char * szParentName );
 static void     hb_clsDictRealloc( PCLASS pClass );
 static void     hb_clsRelease( PCLASS );
        void     hb_clsReleaseAll( void );
@@ -2621,4 +2621,4 @@ HB_FUNC( __CLSGETPROPERTIES )
    }
 
    hb_itemRelease( hb_itemReturn( pReturn ) );
-}
+}
\ No newline at end of file