Index: TECH/ListUtils.cls.xml
===================================================================
diff -u -r1133 -r1508
--- TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 1133)
+++ TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 1508)
@@ -67,6 +67,22 @@
 ]]></Implementation>
 </Method>
 
+<Method name="CopyListOfDataTypes">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>sourceList:%ListOfDataTypes,targetList:%ListOfDataTypes</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+    Set listkey = ""
+    Do {
+        Set item = sourceList.GetNext(.listkey)
+        If ("" '= listkey) Do targetList.Insert(item)
+    }
+    While ("" '= listkey)
+
+    Quit targetList
+]]></Implementation>
+</Method>
+
 <Method name="RemoveObjectFromList">
 <ClassMethod>1</ClassMethod>
 <FormalSpec><![CDATA[Object,&List:%ListOfObjects]]></FormalSpec>
Index: TECH/OperatieScope.cls.xml
===================================================================
diff -u -r1434 -r1508
--- TECH/OperatieScope.cls.xml	(.../OperatieScope.cls.xml)	(revision 1434)
+++ TECH/OperatieScope.cls.xml	(.../OperatieScope.cls.xml)	(revision 1508)
@@ -156,7 +156,7 @@
 	{
 		If ('$IsObject(Exception))
 		{
-			Set Exception = ##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).GeneralError,Exception)
+			Set Exception = ##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),Exception)
 		}
 		Do ##class(TECH.ExceptionHandler).Throw(Exception)
 	}
Index: TECH/ListIterator.cls.xml
===================================================================
diff -u -r1074 -r1508
--- TECH/ListIterator.cls.xml	(.../ListIterator.cls.xml)	(revision 1074)
+++ TECH/ListIterator.cls.xml	(.../ListIterator.cls.xml)	(revision 1508)
@@ -54,11 +54,17 @@
 Causes an error if HasNext() returns false</Description>
 <ReturnType>%CacheString</ReturnType>
 <Implementation><![CDATA[
-	Set Result = ..Item
-	Set Key = ..Key
-	Set ..CurrentKey = Key
-	Set ..Item = ..List.GetNext(.Key)
-	Set ..Key = Key
+	
+	If ..HasNext(){
+		Set Result = ..Item
+		Set Key = ..Key
+		Set ..CurrentKey = Key
+		Set ..Item = ..List.GetNext(.Key)
+		Set ..Key = Key
+	}Else{
+		Set ErrorMsg = ..%ClassName(1)_": Geen volgend item meer, einde van lijst is bereikt."
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),ErrorMsg))			
+	}
 	Quit Result
 ]]></Implementation>
 </Method>