Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml
===================================================================
diff -u -r60218 -r60220
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml	(.../Boringen.cls.xml)	(revision 60218)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml	(.../Boringen.cls.xml)	(revision 60220)
@@ -172,7 +172,7 @@
 				Set RugBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.RugBoring).%New(XPos, YPos,10,10, Kleur)
 				Do SvgBoxElementToevoeger.VoegToeElement(SvgBox,RugBoring)
 			}Else {
-				Set Straal = GrootteBoring/2
+				#dim Straal As %Integer = GrootteBoring/2
 				Set DoorBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring).%New(XPos,YPos,Straal, Kleur)
 				Do SvgBoxElementToevoeger.VoegToeElement(SvgBox,DoorBoring)	
 			}