Index: DOM/PM/impl/ProductKenmerkenSet.cls.xml
===================================================================
diff -u -r2444 -r2629
--- DOM/PM/impl/ProductKenmerkenSet.cls.xml	(.../ProductKenmerkenSet.cls.xml)	(revision 2444)
+++ DOM/PM/impl/ProductKenmerkenSet.cls.xml	(.../ProductKenmerkenSet.cls.xml)	(revision 2629)
@@ -171,12 +171,12 @@
 			If (IsGewijzigd)
 			{
 				Do Kenmerk.Waarden.Clear()
-				Set Kenmerk.Waarden = ##class(TECH.ListUtils).CopyList(Waarden,Kenmerk.Waarden)
+				Set Kenmerk.Waarden = ##class(TECH.ListUtils).CopyListOfObjects(Waarden,Kenmerk.Waarden)
 				Set Kenmerk.IsEventRaiser = ..RaiseEvent //Indien bulk wijziging is mag dit geen event raisen en is aanroeper verantwoordelijk voor zelf het event te raisen.
 				Do Kenmerk.Save(InstanceVersion)
 				
 				Set WaardenLijst = ##class(%ListOfDataTypes).%New()
-				Do ##class(TECH.ListUtils).CopyList(Kenmerk.Waarden,WaardenLijst)
+				Do ##class(TECH.ListUtils).CopyListOfObjects(Kenmerk.Waarden,WaardenLijst)
 				Set Wijziging = ##class(TECH.Events.KenmerkModifiedEventData).%New(..UnID,..KenmerkGroep,KenmerkNaam,WaardenLijst)
 			}
 		}Else{
Index: APPS/PM/KenmerkenService.cls.xml
===================================================================
diff -u -r2444 -r2629
--- APPS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 2444)
+++ APPS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 2629)
@@ -567,7 +567,7 @@
 		Set ProductID = KenmerkenSet.ProductID
 		Set ProductKenmerkenSets = ProductAPI.GeefProductKenmerken(ProductID).GeefProductKenmerkenSets(KenmerkGroep)
 		Set NieuweGewijzigdePRNrs = ProductKenmerkenSets.VerwijderKenmerkenSet(UnID)
-		Set GewijzigdePRNrs = ##class(TECH.ListUtils).CopyList(NieuweGewijzigdePRNrs,GewijzigdePRNrs)
+		Set GewijzigdePRNrs = ##class(TECH.ListUtils).CopyListOfObjects(NieuweGewijzigdePRNrs,GewijzigdePRNrs)
 	}
 	Do OperatieScope.Gelukt()
 	Quit GewijzigdePRNrs	
@@ -628,7 +628,7 @@
 		}
 		
 		Set NieuweGewijzigdePRNrs = ProductKenmerkenSets.MaakNieuweKenmerkenSet(UnID)
-		Set GewijzigdePRNrs = ##class(TECH.ListUtils).CopyList(NieuweGewijzigdePRNrs,GewijzigdePRNrs)
+		Set GewijzigdePRNrs = ##class(TECH.ListUtils).CopyListOfObjects(NieuweGewijzigdePRNrs,GewijzigdePRNrs)
 	}
 	Do OperatieScope.Gelukt()
 	Quit GewijzigdePRNrs	
Index: Prod/Kenmerk/Orgalux.cls.xml
===================================================================
diff -u -r1074 -r2629
--- Prod/Kenmerk/Orgalux.cls.xml	(.../Orgalux.cls.xml)	(revision 1074)
+++ Prod/Kenmerk/Orgalux.cls.xml	(.../Orgalux.cls.xml)	(revision 2629)
@@ -399,7 +399,7 @@
 		}Elseif (LadenTypes.Count() > 1){
 			Set InfoMetLadehoogte = ##class(Res.Vertaling).GetVertaling("OLW","MetLadehoogtes","K",..Taal,,1)
 		}
-		Do ##class(TECH.ListUtils).CopyList(BinnenladenTypes,LadenTypes)
+		Do ##class(TECH.ListUtils).CopyListOfObjects(BinnenladenTypes,LadenTypes)
 		For ctrLadenTypes = 1 : 1 : LadenTypes.Count() {
 			Set InfoMetLadehoogte = InfoMetLadehoogte_LadenTypes.GetAt(ctrLadenTypes)
 			If (ctrLadenTypes < LadenTypes.Count()){
@@ -954,7 +954,7 @@
 	}Elseif (LadenTypes.Count() > 1){
 		Set InfoMetLadehoogte = ##class(Res.Vertaling).GetVertaling("OLW","MetLadehoogtes","K",..Taal,,1)
 	}
-	Do ##class(TECH.ListUtils).CopyList(BinnenladenTypes,LadenTypes)
+	Do ##class(TECH.ListUtils).CopyListOfObjects(BinnenladenTypes,LadenTypes)
 	For ctrLadenTypes = 1 : 1 : LadenTypes.Count() {
 		Set InfoMetLadehoogte = InfoMetLadehoogte_LadenTypes.GetAt(ctrLadenTypes)
 		If (ctrLadenTypes < LadenTypes.Count()){
Index: APPS/PM/KenmMWFPlugin.cls.xml
===================================================================
diff -u -r2626 -r2629
--- APPS/PM/KenmMWFPlugin.cls.xml	(.../KenmMWFPlugin.cls.xml)	(revision 2626)
+++ APPS/PM/KenmMWFPlugin.cls.xml	(.../KenmMWFPlugin.cls.xml)	(revision 2629)
@@ -196,7 +196,7 @@
 		
 		If ($IsObject(WaardenIndexVoorKenmerk))
 		{
-			Do ##class(TECH.ListUtils).CopyList(ObjectenLijst,ObjectenTeVerwijderenLijst)
+			Do ##class(TECH.ListUtils).CopyListOfObjects(ObjectenLijst,ObjectenTeVerwijderenLijst)
 		
 			// We gaan alle gewijzigde kenmerkwaarden overlopen.
 			// Voor elke waarde die al aanwezig was gaan we deze verwijderen uit de "ObjectenTeVerwijderenLijst".
Index: TECH/ListUtils.cls.xml
===================================================================
diff -u -r2626 -r2629
--- TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 2626)
+++ TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 2629)
@@ -52,26 +52,18 @@
 ]]></Implementation>
 </Method>
 
-<Method name="CloneList">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>sourceList:%ListOfObjects</FormalSpec>
-<ReturnType>%ListOfObjects</ReturnType>
-<Implementation><![CDATA[
-    Set targetList = ##class(%ListOfObjects).%New()
-    Do ..CopyList(sourceList, targetList)
-    Quit targetList
-]]></Implementation>
-</Method>
-
-<Method name="CopyList">
+<Method name="CopyListOfObjects">
 <Description>
         Copy the list-items from sourceList into targetList.
         Returns the targetList.
       </Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>sourceList:%ListOfObjects,targetList:%ListOfObjects</FormalSpec>
+<FormalSpec>sourceList:%ListOfObjects,targetList:%ListOfObjects=""</FormalSpec>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
+    if '$IsObject(targetList) {
+	    set targetList = ##class(%ListOfObjects).%New()
+    }
     Set listkey = ""
     Do {
         Set item = sourceList.GetNext(.listkey)
@@ -102,9 +94,13 @@
 
 <Method name="CopyListOfDataTypes">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>sourceList:%ListOfDataTypes,targetList:%ListOfDataTypes</FormalSpec>
+<FormalSpec>sourceList:%ListOfDataTypes,targetList:%ListOfDataTypes=""</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
+    if '$IsObject(targetList) {
+	    set targetList = ##class(%ListOfDataTypes).%New()
+    }
+    
     Set listkey = ""
     Do {
         Set item = sourceList.GetNext(.listkey)
Index: APPS/TBXWeb/OrderChecker.cls.xml
===================================================================
diff -u -r2337 -r2629
--- APPS/TBXWeb/OrderChecker.cls.xml	(.../OrderChecker.cls.xml)	(revision 2337)
+++ APPS/TBXWeb/OrderChecker.cls.xml	(.../OrderChecker.cls.xml)	(revision 2629)
@@ -146,7 +146,7 @@
 	Set SQLQuery = "SELECT ID FROM WS_TBX.WebOrder WHERE (WebDomain <> 'www.tandem-box.com') AND (NOT BonType in ('BBON','OFF')) AND (SubmitTS > '2011-01-01') AND ((TransferLog is NULL) OR (not ($LIST($LIST(TransferLog,1),2) > 0))) ORDER BY WebDomain, SubmitTS, ID"
 	Set Lijst2=..GeefLijstOrderIDs(SQLQuery,lbSQLParams)
 
-	Set Lijst=##Class(TECH.ListUtils).CopyList(Lijst2,Lijst)
+	Set Lijst=##Class(TECH.ListUtils).CopyListOfObjects(Lijst2,Lijst)
 	
 	Quit Lijst
 ]]></Implementation>