diff --git a/packages/fcl-openapi/src/fpopenapi.pascaltypes.pp b/packages/fcl-openapi/src/fpopenapi.pascaltypes.pp
index ad37bcf3fe..3184bee72a 100644
--- a/packages/fcl-openapi/src/fpopenapi.pascaltypes.pp
+++ b/packages/fcl-openapi/src/fpopenapi.pascaltypes.pp
@@ -708,8 +708,11 @@ procedure TAPIData.ConfigType(aType :TAPITypeData);
 
 
 begin
-  aType.InterfaceName:=EscapeKeyWord(InterfaceTypePrefix+aType.SchemaName);
-  aType.InterfaceUUID:=TGUID.NewGUID.ToString(False);
+  if aType.Pascaltype in [ptAnonStruct,ptSchemaStruct] then
+    begin
+    aType.InterfaceName:=EscapeKeyWord(InterfaceTypePrefix+aType.SchemaName);
+    aType.InterfaceUUID:=TGUID.NewGUID.ToString(False);
+    end;
 end;
 
 procedure TAPIData.ApplyUUIDMap(aMap : TStrings);