diff --git a/harbour/include/classes.ch b/harbour/include/classes.ch
index 607aae6f5b..0b1274ca72 100644
--- a/harbour/include/classes.ch
+++ b/harbour/include/classes.ch
@@ -56,7 +56,10 @@
 #xcommand METHOD <MethodName>( [<params,...>] ) VIRTUAL => ;
    oClass:AddVirtual( <(MethodName)> )
 
-#xcommand MESSAGE <MessageName>[()] METHOD <MethodName>( [<params,...>] ) => ;
+#xcommand MESSAGE <MessageName> METHOD <MethodName>( [<params,...>] ) => ;
+   oClass:AddMethod( <(MessageName)>, CLSMETH _CLASS_NAME_ <MethodName>() )
+
+#xcommand MESSAGE <MessageName>() METHOD <MethodName>( [<params,...>] ) => ;
    oClass:AddMethod( <(MessageName)>, CLSMETH _CLASS_NAME_ <MethodName>() )
 
 #xcommand ENDCLASS => oClass:Create() ;;