diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index beed2f2cdf..5fbdf25289 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,10 @@
    2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+    ! make hidden and non virtual invisible in child classes if it overloaded
+      some other non hidden method. In such case the overloaded method is used
+      and can be accessed.
+    ! make friend functions real method class oriented not (super)object for
       hidden messages
 
 2006-09-26 17:00 UTC+0100 Ryszard Glab <rglab//imid.med.pl>
diff --git a/harbour/source/rtl/cdpapi.c b/harbour/source/rtl/cdpapi.c
index 2bb7ebdc2a..3ff3a3eff6 100644
--- a/harbour/source/rtl/cdpapi.c
+++ b/harbour/source/rtl/cdpapi.c
@@ -895,4 +895,22 @@ HB_FUNC( HB_TRANSLATE )
       hb_retc( "" );
 }
 
+HB_FUNC( HB_CDPLIST )
+{
+   int iCount, iPos;
+
+   for( iCount = 0; iCount < HB_CDP_MAX_; ++iCount )
+   {
+      if( !s_cdpList[iCount] )
+         break;
+   }
+
+   hb_reta( iCount );
+   for( iPos = 0; iPos < iCount; ++iPos )
+   {
+      hb_storc( s_cdpList[ iPos ]->id, -1, iPos + 1 );
+   }
+}
+
+
 #endif /* HB_CDP_SUPPORT_OFF */