diff --git a/harbour/include/classes.ch b/harbour/include/classes.ch
index bedaa86d1d..607aae6f5b 100644
--- a/harbour/include/classes.ch
+++ b/harbour/include/classes.ch
@@ -1,4 +1,4 @@
-/* 
+/*
  * $Id$
  */
 
@@ -56,7 +56,7 @@
 #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 ENDCLASS => oClass:Create() ;;