diff --git a/packages/fcl-passrc/src/paswrite.pp b/packages/fcl-passrc/src/paswrite.pp
index ed2828b27b..2190e71be4 100644
--- a/packages/fcl-passrc/src/paswrite.pp
+++ b/packages/fcl-passrc/src/paswrite.pp
@@ -243,6 +243,11 @@ begin
     wrtln(')')
   else
     wrtln;
+
+  if AClass.ObjKind = okInterface then
+    if Assigned(AClass.GUIDExpr) then
+      wrtln('['+AClass.InterfaceGUID+']');
+
   IncIndent;
   LastVisibility := visDefault;
   for i := 0 to AClass.Members.Count - 1 do