Index: TECH/Svg/Basis/SvgBox.cls.xml
===================================================================
diff -u -r3693 -r3730
--- TECH/Svg/Basis/SvgBox.cls.xml	(.../SvgBox.cls.xml)	(revision 3693)
+++ TECH/Svg/Basis/SvgBox.cls.xml	(.../SvgBox.cls.xml)	(revision 3730)
@@ -43,21 +43,21 @@
 </Property>
 
 <Property name="CrossDiags">
-<Type>APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossDiag</Type>
+<Type>TECH.Svg.Tooling.CrossDiag</Type>
 <Collection>list</Collection>
 <Parameter name="XMLNAME" value="crossdiag"/>
 <Parameter name="XMLPROJECTION" value="ELEMENT"/>
 </Property>
 
 <Property name="CrossVHs">
-<Type>APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossVH</Type>
+<Type>TECH.Svg.Tooling.CrossVH</Type>
 <Collection>list</Collection>
 <Parameter name="XMLNAME" value="crossvh"/>
 <Parameter name="XMLPROJECTION" value="ELEMENT"/>
 </Property>
 
 <Property name="TCrosss">
-<Type>APPS.Halux.PPS.ALUFrees.Svg.BasisElement.TCross</Type>
+<Type>TECH.Svg.Tooling.TCross</Type>
 <Collection>list</Collection>
 <Parameter name="XMLNAME" value="tcross"/>
 <Parameter name="XMLPROJECTION" value="ELEMENT"/>
@@ -126,6 +126,7 @@
 <Method name="VoegToeElement">
 <FormalSpec>Element:TECH.Svg.Basis.DomElement</FormalSpec>
 <Implementation><![CDATA[
+	Do ##class(Tools.Wlip).%New(238).String(Element)
 	if Element.%IsA("TECH.Svg.Basis.Rect")
 	{
 	do ..Rects.Insert(Element)
@@ -146,15 +147,15 @@
 	{
 	do ..Texts.Insert(Element)
 	}
-	if Element.%IsA("APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossDiag")
+	if Element.%IsA("TECH.Svg.Tooling.CrossDiag")
 	{
 	do ..CrossDiags.Insert(Element)
 	}
-	if Element.%IsA("APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossVH")
+	if Element.%IsA("TECH.Svg.Tooling.CrossVH")
 	{
 	do ..CrossVHs.Insert(Element)
 	}
-	if Element.%IsA("APPS.Halux.PPS.ALUFrees.Svg.BasisElement.TCross")
+	if Element.%IsA("TECH.Svg.Tooling.TCross")
 	{
 	do ..TCrosss.Insert(Element)
 	}