Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/BoringElementFactory.cls.xml
===================================================================
diff -u -r61353 -r61395
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/BoringElementFactory.cls.xml	(.../BoringElementFactory.cls.xml)	(revision 61353)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/BoringElementFactory.cls.xml	(.../BoringElementFactory.cls.xml)	(revision 61395)
@@ -52,9 +52,7 @@
 	Set Puntboring.SvgBox = ..BasisElementFactory.MaakSvgBox((MidX-(Width/2)),(MidY-(Height/2)), Width, Height)
 	Do Puntboring.SvgBox.VoegToeID("puntboring")
 	#dim CrossDiag As TECH.Svg.Tooling.CrossDiag = ..CrossFactory.MaakCrossDiag(Width,Height,Kleur)
-	Do ##class(Tools.Wlip).%New(238).ObjToXML(CrossDiag)
 	Do ..ElementToevoeger.VoegToeElement(Puntboring.SvgBox,CrossDiag)
-	Do ##class(Tools.Wlip).%New(238).ObjToXML(Puntboring.SvgBox)
 	Quit Puntboring
 ]]></Implementation>
 </Method>