--- parser3/src/main/compile.y	2003/04/03 06:16:05	1.204.2.8.2.10
+++ parser3/src/main/compile.y	2003/04/03 11:19:49	1.204.2.8.2.11
@@ -5,7 +5,7 @@
 	Copyright (c) 2001, 2003 ArtLebedev Group (http://www.artlebedev.com)
 	Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)
 
-	$Id: compile.y,v 1.204.2.8.2.10 2003/04/03 06:16:05 paf Exp $
+	$Id: compile.y,v 1.204.2.8.2.11 2003/04/03 11:19:49 paf Exp $
 */
 
 /**
@@ -121,11 +121,11 @@ static int yylex(YYSTYPE *lvalp, void *p
 %%
 all:
 	one_big_piece {
-	Method& method=*new Method(/*main_method_name, */Method::CT_ANY,
+	Method& method=*new Method(Method::CT_ANY,
 		0, 0, /*min, max numbered_params_count*/
 		0/*param_names*/, 0/*local_names*/, 
 		$1/*parser_code*/, 0/*native_code*/);
-	PC.cclass->add_method(main_method_name, method);
+	PC.cclass->add_method(PC.alias_method(main_method_name), method);
 }
 |	methods;
 
@@ -237,7 +237,7 @@ code_method: '@' STRING bracketed_maybe_
 		0, 0/*min,max numbered_params_count*/, 
 		params_names, locals_names, 
 		$7, 0);
-	PC.cclass->add_method(name, method);
+	PC.cclass->add_method(PC.alias_method(name), method);
 };
 
 maybe_bracketed_strings: empty | bracketed_maybe_strings;