Index: TECH/Svg/Basis/Group.cls.xml
===================================================================
diff -u -r3638 -r3657
--- TECH/Svg/Basis/Group.cls.xml	(.../Group.cls.xml)	(revision 3638)
+++ TECH/Svg/Basis/Group.cls.xml	(.../Group.cls.xml)	(revision 3657)
@@ -63,9 +63,17 @@
 <Parameter name="XMLPROJECTION" value="ELEMENT"/>
 </Property>
 
+<Property name="Groups">
+<Type>TECH.Svg.Basis.Group</Type>
+<Collection>list</Collection>
+<Parameter name="XMLNAME" value="g"/>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
+
 <Property name="Transform">
 <Type>%String</Type>
 <Parameter name="XMLNAME" value="transform"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
 </Property>
 
 <Property name="ID">
@@ -118,6 +126,10 @@
 	{
 	do ..TCrosss.Insert(Element)
 	}
+	if Element.%IsA("TECH.Svg.Basis.Group")
+	{
+	do ..Groups.Insert(Element)
+	}
 ]]></Implementation>
 </Method>
 
@@ -127,6 +139,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VoegToeTransform">
+<FormalSpec>Transform:%String</FormalSpec>
+<Implementation><![CDATA[	Set ..Transform = Transform
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <Data name="DomElementState">
@@ -178,6 +196,9 @@
 <Value name="16">
 <Value>ID</Value>
 </Value>
+<Value name="17">
+<Value>Groups</Value>
+</Value>
 </Data>
 </Storage>
 </Class>