Index: vhUnitTest/Tools/ObjectDumper/TestDumper.cls.xml
===================================================================
diff -u -r1988 -r2008
--- vhUnitTest/Tools/ObjectDumper/TestDumper.cls.xml	(.../TestDumper.cls.xml)	(revision 1988)
+++ vhUnitTest/Tools/ObjectDumper/TestDumper.cls.xml	(.../TestDumper.cls.xml)	(revision 2008)
@@ -3,16 +3,16 @@
 <Class name="vhUnitTest.Tools.ObjectDumper.TestDumper">
 <Super>vhUnitTest.TestCase</Super>
 
+<Parameter name="GebruiktVariabeleControle">
+<Default>0</Default>
+</Parameter>
+
 <Property name="AssertCounter">
 <Type>%Integer</Type>
 <InitialExpression>0</InitialExpression>
 <Private>1</Private>
 </Property>
 
-<Parameter name="GebruiktVariabeleControle">
-<Default>0</Default>
-</Parameter>
-
 <Property name="DumpResult">
 <Type>%ListOfDataTypes</Type>
 <Private>1</Private>
@@ -23,7 +23,7 @@
 	#dim Object = ##class(vhUnitTest.Tools.ObjectDumper.ObjectCreator).GetObject()
 	
 	set ..DumpResult = ##class(Tools.ObjectDumper.Dumper).%New(Object).GetResult()
-
+	
 	do ..WijzigObjectReferenceNummers("nn")
 	
 	do ..AssertValue("EmptyObject = ")
@@ -36,9 +36,13 @@
 	do ..AssertValue("PropertyAsInteger = 1")
 	do ..AssertValue("PropertyAsString = string")
 	
-	do ..AssertValue("PropertyAsListOfDataTypes = nn@%Collection.ListOfDT")
+	do ..AssertValue("PropertyAsListOfDataTypes = nn@%Library.ListOfDataTypes")
 	do ..AssertValue("PropertyAsListOfDataTypes[1] = Item1")
 	do ..AssertValue("PropertyAsListOfDataTypes[2] = Item2")
+
+	do ..AssertValue("PropertyAsListOfString = nn@%Collection.ListOfDT")
+	do ..AssertValue("PropertyAsListOfString[1] = Item1")
+	do ..AssertValue("PropertyAsListOfString[2] = Item2")
 	
 	do ..AssertValue("PropertyAsArrayOfDataTypes = nn@%Collection.ArrayOfDT")
 	do ..AssertValue("PropertyAsArrayOfDataTypes[Key1] = Item1")