diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 963cf234f8..34f2d6c5f1 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,9 @@
+2001-05-21 21:35 UTC+1 JFL (mafact) <jfl@mafact.com>
+   * harbour/source/vm/Proc.c
+     + MethodName(nLevel) ==> Same as ProcName(nLevel)
+   * harbour/include/hbclass.ch
+     - delete xTranslate 'MethodName' 
+
 2001-05-21 14:30 UTC-0400 David G. Holm <dholm@jsd-llc.com>
 
   * source/rtl/tget.prg
diff --git a/harbour/include/hbclass.ch b/harbour/include/hbclass.ch
index 802e8831f8..40c4eb1a90 100644
--- a/harbour/include/hbclass.ch
+++ b/harbour/include/hbclass.ch
@@ -144,7 +144,6 @@ DECLARE TClass ;
 /* CLASSY SYNTAX */
 #IFDEF HB_CLS_CSY
 #xtranslate CREATE CLASS => CLASS
-#xtranslate METHODNAME => PROCNAME
 #endif
 
 #ifndef HB_SHORTNAMES
diff --git a/harbour/source/vm/proc.c b/harbour/source/vm/proc.c
index 59e76ef488..2320ed1322 100644
--- a/harbour/source/vm/proc.c
+++ b/harbour/source/vm/proc.c
@@ -64,6 +64,13 @@
 #include "hbapi.h"
 #include "hbstack.h"
 
+HB_FUNC( METHODNAME )
+{
+   char szName[ HB_SYMBOL_NAME_LEN + HB_SYMBOL_NAME_LEN + 2 ];
+
+   hb_retc( hb_procname( hb_parni( 1 ) + 1, szName ) );
+}
+
 HB_FUNC( PROCNAME )
 {
    char szName[ HB_SYMBOL_NAME_LEN + HB_SYMBOL_NAME_LEN + 2 ];