Index: vhUnitTest/TECH/ObjectUtils/ObjectConverterException/ConverteerOutputExceptionsNaarInput/Test.cls.xml
===================================================================
diff -u -r2223 -r2229
--- vhUnitTest/TECH/ObjectUtils/ObjectConverterException/ConverteerOutputExceptionsNaarInput/Test.cls.xml	(.../Test.cls.xml)	(revision 2223)
+++ vhUnitTest/TECH/ObjectUtils/ObjectConverterException/ConverteerOutputExceptionsNaarInput/Test.cls.xml	(.../Test.cls.xml)	(revision 2229)
@@ -74,19 +74,19 @@
 <FormalSpec>ConvertData:TECH.ObjectUtils.ObjectConvertData,VerwachtePropertyNamen:%ListOfDataTypes</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim i As %Integer = 0
 	#dim ObjectConverterException As TECH.ObjectUtils.ObjectConverterException = ..ObjectConverterException.ConverteerOutputExceptionsNaarInput(ConvertData)
 
 	Set ExceptionsIterator = ##class(TECH.ListIterator).%New(ObjectConverterException.GeefInnerExcepties())
 	While (ExceptionsIterator.HasNext()) {
 		#dim Exception As TECH.ObjectUtils.ObjectConverterPropertyException = ExceptionsIterator.Next()
-		#dim VerwachtePropertyNaam As %String = VerwachtePropertyNamen.GetAt($Increment(i))
-		Do $$$AssertEquals(Exception.InputOutput,"input","i="_i)
+		#dim Key As %Integer = ExceptionsIterator.Key()
+		#dim VerwachtePropertyNaam As %String = VerwachtePropertyNamen.GetAt(Key)
+		Do $$$AssertEquals(Exception.InputOutput,"input","key="_Key)
 		Do $$$AssertEquals(Exception.PropertyName,VerwachtePropertyNaam)
 		
 		Do $$$AssertEquals(Exception.PropertyNameFrom,VerwachtePropertyNaam)
 		Do $$$AssertEquals(Exception.PropertyNameTo,"")
-		Do $$$AssertEquals(Exception.ClassName,"","i="_i)
+		Do $$$AssertEquals(Exception.ClassName,"","key="_Key)
 	}
 ]]></Implementation>
 </Method>