Print(1) в старом методе расширения - Неверное количество параметров функции

[miks1965]

procedure integer.ПокажиМеня;
begin
  Print(1);
end; 

begin
  var i := 135;
  i.ПокажиМеня
end.

С какого то момента перестало работать

[miks1965]

procedure ПокажиМеня(self: integer); extensionmethod;
begin
  Print(1);
end; 

begin
  var i := 135;
  i.ПокажиМеня
end.

Так работает

[miks1965]

if (silExt.Count > 0 && expr_node == null) 
                        {
                            var en0 = convert_strong(new ident("Self",_method_call.dereferencing_value.source_context));
                            exprs.AddElementFirst(en0);
                            expr_node = convertion_data_and_alghoritms.create_full_function_call(exprs, sil, mcloc,
                                context.converted_type, context.top_function, proc_wait, _method_call.parameters?.expressions);
                        }

Этот код в s_t_v дает лишний Self в Print с модификатором var!!!