Index: TECH/ObjectUtils/impl/WaardenKopieerder.cls.xml
===================================================================
diff -u -r1291 -r1292
--- TECH/ObjectUtils/impl/WaardenKopieerder.cls.xml	(.../WaardenKopieerder.cls.xml)	(revision 1291)
+++ TECH/ObjectUtils/impl/WaardenKopieerder.cls.xml	(.../WaardenKopieerder.cls.xml)	(revision 1292)
@@ -11,6 +11,13 @@
 	quit Kopieerder.KopieerWaarden(Object1,Object2,flagOverwrite)
 ]]></Implementation>
 </Method>
+
+<Method name="Kopieer">
+<FormalSpec>Object:%RegisteredObject,Diep:%Boolean=$$$False</FormalSpec>
+<ReturnType>%RegisteredObject</ReturnType>
+<Implementation><![CDATA[	Quit Object.%ConstructClone(Diep)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: TECH/ObjectUtils/WaardenKopieerder.cls.xml
===================================================================
diff -u -r766 -r1292
--- TECH/ObjectUtils/WaardenKopieerder.cls.xml	(.../WaardenKopieerder.cls.xml)	(revision 766)
+++ TECH/ObjectUtils/WaardenKopieerder.cls.xml	(.../WaardenKopieerder.cls.xml)	(revision 1292)
@@ -9,6 +9,11 @@
 <FormalSpec>Object1:%RegisteredObject,Object2:%RegisteredObject,flagOverwrite:%Boolean=0</FormalSpec>
 <ReturnType>TECH.ObjectUtils.KopieerWaardenResultaat</ReturnType>
 </Method>
+
+<Method name="Kopieer">
+<FormalSpec>Object:%RegisteredObject,Diep:%Boolean=0</FormalSpec>
+<ReturnType>%RegisteredObject</ReturnType>
+</Method>
 </Class>