diff --git a/Compiler/PCU/PCUWriter.cs b/Compiler/PCU/PCUWriter.cs
index e5f51415c..82f7a6abd 100644
--- a/Compiler/PCU/PCUWriter.cs
+++ b/Compiler/PCU/PCUWriter.cs
@@ -2180,7 +2180,11 @@ namespace PascalABCCompiler.PCU
 		{
 			bw.Write(cur_cnn.non_template_types.Count);
 			for (int i=0; i<cur_cnn.non_template_types.Count; i++)
+                if (cur_cnn.non_template_types[i].type_special_kind != SemanticTree.type_special_kind.array_wrapper)
 				VisitTypeDefinition(cur_cnn.non_template_types[i]);
+            for (int i = 0; i < cur_cnn.non_template_types.Count; i++)
+                if (cur_cnn.non_template_types[i].type_special_kind == SemanticTree.type_special_kind.array_wrapper)
+                    VisitTypeDefinition(cur_cnn.non_template_types[i]);
             bw.Write(cur_cnn.runtime_types.Count);
 			for (int i=0; i<cur_cnn.runtime_types.Count; i++)
 				VisitCompiledTypeDefinition(cur_cnn.runtime_types[i]);
diff --git a/TestSuite/CompilationSamples/u.pas b/TestSuite/CompilationSamples/u.pas
new file mode 100644
index 000000000..324100e20
--- /dev/null
+++ b/TestSuite/CompilationSamples/u.pas
@@ -0,0 +1,25 @@
+unit u;
+
+type
+  e1 = (
+  
+    ef1,
+    ef2
+    
+  );
+  
+  t2 = class;
+  tarr = array[e1] of t2;
+  t2 = class
+  end;
+  
+  t1 = class
+    
+    a: array[e1] of t1;//обязательно тип элементов t1
+    procedure test(t: tarr);
+    begin
+      
+    end;
+  end;
+  
+end.
\ No newline at end of file