diff --git a/wst/trunk/object_serializer.pas b/wst/trunk/object_serializer.pas index 9b23dc8f9..686a0550d 100644 --- a/wst/trunk/object_serializer.pas +++ b/wst/trunk/object_serializer.pas @@ -1358,7 +1358,8 @@ begin qualifiedElt := eltFormEmpty or qualifiedElt; qualifiedAtt := (trioQualifiedAttribute in regItem.Options) and not(trioUnqualifiedAttribute in regItem.Options); qualifiedAtt := not(attFormEmpty) and qualifiedAtt; - GetPropList(locTypeInfo,FRawPropList); + if (FRawPropList = nil) then + GetPropList(locTypeInfo,FRawPropList); try for i := 0 to Pred(c) do begin ppi := FRawPropList^[i];