* fixed number of colons in (fake) message names

git-svn-id: branches/objc@13677 -

tests/test/tobjc13.pp

@@ -7,8 +7,8 @@
 
 type
   ta = objcclass(NSObject)
-    procedure test(l: longint; a: array of const); message 'class';
-    procedure test2(l: longint); varargs; message 'class';
+    procedure test(l: longint; a: array of const); message 'class:';
+    procedure test2(l: longint); varargs; message 'class:';
   end; external name 'NSObject';
 
 begin