Index: DOM/PM/impl/DataM/Bouwsteen.cls.xml
===================================================================
diff -u -r1354 -r2034
--- DOM/PM/impl/DataM/Bouwsteen.cls.xml	(.../Bouwsteen.cls.xml)	(revision 1354)
+++ DOM/PM/impl/DataM/Bouwsteen.cls.xml	(.../Bouwsteen.cls.xml)	(revision 2034)
@@ -46,6 +46,11 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetID">
+<FormalSpec>ID:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+</Method>
+
 <Method name="IsModified">
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	Quit ..IsModified
@@ -111,5 +116,16 @@
 	Quit Status
 ]]></Implementation>
 </Method>
+
+<Method name="%OnConstructClone">
+<FormalSpec><![CDATA[object:%RegisteredObject,deep:%Boolean=0,&cloned:%String]]></FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	// Zeker de get triggeren wanneer een clone wordt gemaakt
+	Set Record = ..BouwsteenRecord
+]]></Implementation>
+</Method>
 </Class>
 </Export>