fcl-js: clean up

packages/fcl-js/src/tstopas.pp

@@ -770,12 +770,14 @@ procedure TTypescriptToPas.DumpElements;
     N : TJSElementNode;
 
   begin
+    {AllowWriteln}
     Writeln(aSection,': ',aList.Count,' elements');
     For I:=0 to aList.Count-1 do
       begin
       N:=Alist[i];
       Writeln(aSection,' element ',I,' : ',N.Node.ClassName);
       end;
+    {AllowWriteln-}
   end;
 
 Var