diff --git a/packages/pastojs/src/fppas2js.pp b/packages/pastojs/src/fppas2js.pp
index 4ad7623078..567dfa8839 100644
--- a/packages/pastojs/src/fppas2js.pp
+++ b/packages/pastojs/src/fppas2js.pp
@@ -16773,6 +16773,7 @@ begin
   if (not (AContext.PasElement is TPasMembersType)) // rtti of members is added separate
       and HasTypeInfo(El,AContext) then
     begin
+    // writeln('TPasToJSConverter.ConvertArrayType ',GetObjPath(El),' ',GetObjPath(AContext.PasElement));
     Call:=nil;
     try
       Call:=CreateRTTIAnonymousArray(El,AContext);
@@ -20562,15 +20563,13 @@ begin
     NewEl:=nil;
     P:=TPasElement(Members[i]);
     C:=P.ClassType;
-    writeln('AAA1 TPasToJSConverter.CreateRTTIMembers ',GetObjPath(P));
+    //writeln('TPasToJSConverter.CreateRTTIMembers ',GetObjPath(P));
     if C.InheritsFrom(TPasType) and HasTypeInfo(TPasType(P),MembersFuncContext) then
       begin
-        writeln('AAA2 TPasToJSConverter.CreateRTTIMembers ',GetObjPath(P));
       // published subtype
       if aResolver.IsAnonymousElType(TPasType(P)) then
         begin
         // published anonymous eltype
-          writeln('AAA3 TPasToJSConverter.CreateRTTIMembers ',GetObjPath(P));
         if C.InheritsFrom(TPasArrayType) then
           NewEl:=CreateRTTIAnonymousArray(TPasArrayType(P),MembersFuncContext);
         end;
diff --git a/packages/pastojs/tests/tcmodules.pas b/packages/pastojs/tests/tcmodules.pas
index 2194b08311..47dfa9014d 100644
--- a/packages/pastojs/tests/tcmodules.pas
+++ b/packages/pastojs/tests/tcmodules.pas
@@ -830,6 +830,7 @@ type
     Procedure TestRTTI_Class_OtherUnit_TypeAlias;
     Procedure TestRTTI_Class_OmitRTTI;
     Procedure TestRTTI_Class_Field_AnonymousArrayOfSelfClass;
+    Procedure TestRTTI_Class_Field_AnonymousArrayOfSelfClass2;
     Procedure TestRTTI_IndexModifier;
     Procedure TestRTTI_StoredModifier;
     Procedure TestRTTI_DefaultValue;
@@ -29990,7 +29991,7 @@ begin
   Add([
   'interface',
   'type',
-  '  {$M+1}',
+  '  {$M+}',
   '  TBird = class',
   '  published',
   '    Swarm: array of TBird;',