diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 1d74ae820c..7610740f45 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,7 @@
+2000-10-09 22:15 UTC+0200 JFL (mafact) <jfl@mafact.com>
+   * HBCLASS.CH corrected some tipo where accessName became accesName
+
+
 2000-10-09 2:01 UTC+0800 Brian Hays <bhays@abacuslaw.com>
    * contrib/rdd_ads/adsfunc.c
       * fixed ADSGETRELKEYPOS to work without an index
diff --git a/harbour/include/hbclass.ch b/harbour/include/hbclass.ch
index 1e438a8fdd..8bf6ecf2b6 100644
--- a/harbour/include/hbclass.ch
+++ b/harbour/include/hbclass.ch
@@ -415,15 +415,15 @@ DECLARE TClass ;
    s_oClass:AddMethod( "_" + <(MethodName)>, CLSMETH _CLASS_NAME_ <MethodName>() )
 
 #xcommand ACCESS <AccessName> [ AS <type> ] => ;
-   _HB_MEMBER <AccesName>() [ AS <type> ];;
+   _HB_MEMBER <AccessName>() [ AS <type> ];;
    s_oClass:AddMethod( <(AccessName)>, CLSMETH _CLASS_NAME_ <AccessName>(), HB_OO_CLSTP_EXPORTED + HB_OO_CLSTP_READONLY )
 
 #xcommand ACCESS <AccessName> [ AS <type> ] INLINE [Local <v>,] <code,...> => ;
-   _HB_MEMBER <AccesName>() [ AS <type> ];;
+   _HB_MEMBER <AccessName>() [ AS <type> ];;
    s_oClass:AddInline( <(AccessName)>, {|Self [,<v>] | <code> }, HB_OO_CLSTP_EXPORTED + HB_OO_CLSTP_READONLY )
 
 #xcommand ACCESS <AccessName> [ AS <type> ] DEFERRED => ;
-   _HB_MEMBER <AccesName>() [ AS <type> ];;
+   _HB_MEMBER <AccessName>() [ AS <type> ];;
    s_oClass:AddVirtual( <(AccessName)> )
 
 #xcommand ASSIGN <AssignName>( [<params,...>] ) [ AS <type> ] => ;