Index: Prod/GADef/emKadBeslag.cls.xml
===================================================================
diff -u -r29059 -r38162
--- Prod/GADef/emKadBeslag.cls.xml	(.../emKadBeslag.cls.xml)	(revision 29059)
+++ Prod/GADef/emKadBeslag.cls.xml	(.../emKadBeslag.cls.xml)	(revision 38162)
@@ -444,6 +444,7 @@
 
 <Method name="VoegToeBeslagPositie">
 <FormalSpec>PositieVector:TECH.Vector</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
 <Implementation><![CDATA[
 	Set Positie = ##class(Prod.GADef.emKadBeslagPos).%New()
 	Set Positie.AfstandRand = PositieVector.Y