diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index a25f7e9278..aa295c90c2 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,9 @@
+2001-05-15 13:20 UTC+0300 Chen Kedem <niki@actcom.co.il>
+   * doc/en/objfunc.txt
+     * update the doc for __objGetMsgList() to reflect
+       changelog 2001-05-13 22:10 UTC+1 JFL (mafact) <jfl@mafact.com>
+       also added a short DATA/CLASSDATA explanation by J.Lefebvre
+
 2001-05-14 21:10 UTC-0400 David G. Holm <dholm@jsd-llc.com>
 
   * source/compiler/hbusage.c
diff --git a/harbour/doc/en/objfunc.txt b/harbour/doc/en/objfunc.txt
index 652f8fa40c..65e5f0f491 100644
--- a/harbour/doc/en/objfunc.txt
+++ b/harbour/doc/en/objfunc.txt
@@ -98,7 +98,7 @@
  *  $ONELINER$
  *      Return names of all DATA or METHOD for a given object
  *  $SYNTAX$
- *      __objGetMsgList( <oObject>, [<lData>], [lClassOnly] ) --> aNames
+ *      __objGetMsgList( <oObject>, [<lData>], [nClassType] ) --> aNames
  *  $ARGUMENTS$
  *      <oObject> is an object to scan.
  *
@@ -107,10 +107,9 @@
  *      all DATA names, .F. return list of all METHOD names. Default value
  *      is .T.
  *
- *      <lClassOnly> is on optional logical value. A value of .T. instruct
- *      the function to return only CLASSDATA names, .F. return list of both
- *      DATA and CLASSDATA names. Default value is .F.
- *
+ *      <nClassType> is on optional numeric code for selecting which class
+ *      type to return. Default value is HB_MSGLISTALL, returning the whole
+ *      list.
  *  $RETURNS$
  *      __objGetMsgList() return an array of character stings with all DATA
  *      names or all METHOD names for a given object. __objGetMsgList()
@@ -118,13 +117,30 @@
  *      the requested information.
  *  $DESCRIPTION$
  *      __objGetMsgList() is a low level class support function that let you
- *      find all instance variable or class functions names for a given
- *      object.
+ *      find all instance variable or method names for a given object.
+ *
+ *      If specified, the following table shoes the values for <nClassType>
+ *      that allow you to distinguish between DATA and CLASSDATA:
+ *
+ *     <table>
+ *      hboo.ch          Value  Meaning
+ *
+ *      HB_MSGLISTALL    0      All types
+ *      HB_MSGLISTCLASS  1      CLASSDATA only
+ *      HB_MSGLISTPURE   2      DATA only
+ *     </table>
+ *
+ *      DATA are instance variable usable within each object from a class,
+ *      where each object has its own DATAs.
+ *
+ *      CLASSDATA are shared by all objects from a Class, so the changed
+ *      value within Object1 will be reflected when accessing the CLASSDATA
+ *      from Object2.
  *  $EXAMPLES$
  *      // show information about TBrowse class
  *      oB := TBrowseNew( 0, 0, 24, 79 )
  *      aData      := __objGetMsgList( oB, .T. )
- *      aClassData := __objGetMsgList( oB, .T., .T. )
+ *      aClassData := __objGetMsgList( oB, .T., HB_MSGLISTCLASS )
  *      aMethod    := __objGetMsgList( oB, .F. )
  *      FOR i = 1 to len ( aData )
  *          ? "DATA name:", aData[ i ]
@@ -141,6 +157,7 @@
  *  $COMPLIANCE$
  *      __objGetMsgList() is a Harbour extension.
  *  $FILES$
+ *      Header file is hboo.ch
  *      Library is rtl
  *  $SEEALSO$
  *      __ObjGetMethodList(),__ObjGetValueList(),__objHasData(),__objHasMethod()