Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml
===================================================================
diff -u -r61908 -r61916
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml	(.../Boringen.cls.xml)	(revision 61908)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml	(.../Boringen.cls.xml)	(revision 61916)
@@ -159,7 +159,8 @@
 		Set BoorType = $S((Boring.BoringType="EX")!(Boring.BoringType="IN"):"Z", 1:Boring.BoringType)
 		
 		If ($L(Boring.VmlID) > 2) {
-			#Dim SvgBoxTest As TECH.Svg.Basis.SvgBox = ..BeslagBoringSpecialevorm.MaakBoringSpecialeVorm(Boring.VmlID, Breedte, Lengte, Rotation, YPos)
+			Do ##class(Tools.Wlip).%New(238).String(XPos_" "_YPos)
+			#Dim SvgBoxTest As TECH.Svg.Basis.SvgBox = ..BeslagBoringSpecialevorm.MaakBoringSpecialeVorm(Boring.VmlID, Breedte, Lengte, Rotation, YPos, XPos)
 			Do ..ElementToevoeger.VoegToeElement(SvgBox, SvgBoxTest)
 		}
 		ElseIf (BoorType="Z") {