diff --git a/packages/fcl-passrc/src/paswrite.pp b/packages/fcl-passrc/src/paswrite.pp
index ed15989d69..448413e9cd 100644
--- a/packages/fcl-passrc/src/paswrite.pp
+++ b/packages/fcl-passrc/src/paswrite.pp
@@ -150,6 +150,7 @@ end;
 
 procedure TPasWriter.WriteType(AType: TPasType);
 begin
+  PrepareDeclSection('type');
   if AType.ClassType = TPasUnresolvedTypeRef then
     wrt(AType.Name)
   else if AType.ClassType = TPasClassType then