diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index c4a9816297..b368715757 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,8 @@
+2001-05-21 07:20 UTC+1 JFL (mafact) <jfl@mafact.com>
+   * harbour/source/vm/classes.c
+     * hb_objGetRealClsName(object, szmsg )
+       was missing in function declaration.
+
 2001-05-20 19:15 GMT -3 Luiz Rafael Culik <culik@sl.conex.net>
    * contrib/hbzlib/zip.c
      contrib/hbzlib/zipcomp.cpp
diff --git a/harbour/source/vm/classes.c b/harbour/source/vm/classes.c
index 78f2962cb1..f0d7745f42 100644
--- a/harbour/source/vm/classes.c
+++ b/harbour/source/vm/classes.c
@@ -209,6 +209,7 @@ static PCLASS   s_pClasses     = NULL;
 static USHORT   s_uiClasses    = 0;
 static PMETHOD  s_pMethod      = NULL; /* TOFIX: The object engine is not thread safe because of this. [vszakats] */
 static PHB_DYNS s_msgClassName = NULL;
+
 static PHB_DYNS s_msgClassH    = NULL;
 static PHB_DYNS s_msgEval      = NULL;
 static PHB_DYNS s_msgClassSel  = NULL;
@@ -226,6 +227,7 @@ static void     hb_clsRelease( PCLASS );
        void     hb_clsReleaseAll( void );
 
        char *   hb_objGetClsName( PHB_ITEM pObject );
+       char *   hb_objGetRealClsName( PHB_ITEM pObject, char * szName );
        PHB_FUNC hb_objGetMethod( PHB_ITEM, PHB_SYMB );
        PHB_FUNC hb_objGetMthd( PHB_ITEM pObject, PHB_SYMB pMessage, BOOL lAllowErrFunc );
        ULONG    hb_objHasMsg( PHB_ITEM pObject, char * szString );