From 3ce6cc25d25e532a03208adfe29373335e3e6784 Mon Sep 17 00:00:00 2001
From: Jean-Francois Lefebvre <jfl@mafact.com>
Date: Tue, 17 Oct 2000 19:08:46 +0000
Subject: [PATCH] 2000-10-17 21:15 UTC+0200 JFL (mafact) <jfl@mafact.com>

---
 harbour/ChangeLog          | 5 +++++
 harbour/include/hbclass.ch | 4 ++--
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index c3eef6ac6b..b7a5ee559b 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,8 @@
+2000-10-17 21:15 UTC+0200 JFL (mafact) <jfl@mafact.com>
+    * include/hbclass.ch
+      * Minor typo's corrected as John's indication
+
+
 2000-10-17 11:35 UTC+0800 Ron Pinkas <ron@profit-master.com>
     * contrib/dot/pp.prg
       ! Fixed few more associations within NextExp()
diff --git a/harbour/include/hbclass.ch b/harbour/include/hbclass.ch
index 8bf6ecf2b6..e415abe76b 100644
--- a/harbour/include/hbclass.ch
+++ b/harbour/include/hbclass.ch
@@ -288,9 +288,9 @@ DECLARE TClass ;
    _HB_MEMBER <MethodName>([<params>]) [ AS <type> ];;
    s_oClass:AddClsMthds( <(MethodName)>, CLSMETH _CLASS_NAME_ <MethodName>(), HBCLSCHOICE( <.export.>, <.protect.>, <.hidde.> ) + iif( <.share.>, HB_OO_CLSTP_SHARED, 0 ) )
 
-#xcommand CONSTRUCTOR <Name>( [<params,...>] ) => METHOD <Name>( [<params,...>] ) CONSTRUCTOR
+#xcommand CONSTRUCTOR <Name>( [<params,...>] ) => METHOD <Name>( [<params>] ) CONSTRUCTOR
 
-#xcommand CONSTRUCTOR New( [<params,...>] ) => METHOD New( [<params,...>] ) CONSTRUCTOR
+#xcommand CONSTRUCTOR New( [<params,...>] ) => METHOD New( [<params>] ) CONSTRUCTOR
 
 #xcommand METHOD <MethodName> [ <ctor: CONSTRUCTOR> ] [ AS <type> ] [ <export: EXPORTED, VISIBLE>] [<protect: PROTECTED>] [<hidde: HIDDEN>] => ;
    _HB_MEMBER <MethodName>() [<-ctor-> AS CLASS _CLASS_NAME_] [ AS <type> ];;