Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml
===================================================================
diff -u -r59510 -r59512
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml	(.../Boringen.cls.xml)	(revision 59510)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml	(.../Boringen.cls.xml)	(revision 59512)
@@ -31,7 +31,7 @@
 <Parameter name="XMLPROJECTION" value="ELEMENT"/>
 </Property>
 
-<Method name="VoegToeElement">
+<Method name="VoegToeBoring">
 <FormalSpec>Boring:TECH.Svg.Basis.DomElement</FormalSpec>
 <Implementation><![CDATA[
 	if Boring.%IsA("APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring")
Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen/Test.cls.xml
===================================================================
diff -u -r59510 -r59512
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen/Test.cls.xml	(.../Test.cls.xml)	(revision 59510)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen/Test.cls.xml	(.../Test.cls.xml)	(revision 59512)
@@ -10,10 +10,10 @@
 	Set Puntboring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.PuntBoring).%New(15,15,5,5)
 	Set Rugboring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.RugBoring).%New(15,15,5,5)
 	Set Zijboring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.ZijBoring).%New(15,15,5,5)
-	Do Boringen.VoegToeElement(DoorBoring)
-	Do Boringen.VoegToeElement(Puntboring)
-	Do Boringen.VoegToeElement(Rugboring)
-	Do Boringen.VoegToeElement(Zijboring)
+	Do Boringen.VoegToeBoring(DoorBoring)
+	Do Boringen.VoegToeBoring(Puntboring)
+	Do Boringen.VoegToeBoring(Rugboring)
+	Do Boringen.VoegToeBoring(Zijboring)
 		Do ..AssertSvg(Boringen, "<Boringen>  <doorboring>    <svg x=""12.5"" y=""12.5"" height=""5"" width=""5"" id=""doorboring"">      <circle cx=""2.5"" cy=""2.5"" r="".5""></circle>    </svg>  </doorboring>  <puntboring>    <svg x=""12.5"" y=""12.5"" height=""5"" width=""5"" id=""puntboring"">      <crossdiag>        <line x1=""0"" y1=""0"" x2=""5"" y2=""5""></line>        <line x1=""0"" y1=""5"" x2=""5"" y2=""0""></line>      </crossdiag>    </svg>  </puntboring>  <rugboring>    <svg x=""12.5"" y=""12.5"" height=""5"" width=""5"" id=""rugboring"">      <circle cx=""2.5"" cy=""2.5"" r="".5""></circle>      <crossdiag>        <line x1=""0"" y1=""0"" x2=""5"" y2=""5""></line>        <line x1=""0"" y1=""5"" x2=""5"" y2=""0""></line>      </crossdiag>    </svg>  </rugboring>  <zijboring>    <svg x=""12.5"" y=""12.5"" height=""5"" width=""5"" id=""zijboring"">      <tcross>        <line x1=""0"" y1=""0"" x2=""5"" y2=""0""></line>        <line x1=""2.5"" y1=""0"" x2=""2.5"" y2=""5""></line>      </tcross>    </svg>  </zijboring></Boringen>")
 ]]></Implementation>
 </Method>