Index: vhUnitTest/Tools/ObjectDumper/BaseObject.cls.xml
===================================================================
diff -u -r1033 -r2008
--- vhUnitTest/Tools/ObjectDumper/BaseObject.cls.xml	(.../BaseObject.cls.xml)	(revision 1033)
+++ vhUnitTest/Tools/ObjectDumper/BaseObject.cls.xml	(.../BaseObject.cls.xml)	(revision 2008)
@@ -45,7 +45,7 @@
 <Type>Object</Type>
 </Property>
 
-<Property name="PropertyAsListOfDataTypes">
+<Property name="PropertyAsListOfString">
 <Type>%String</Type>
 <Collection>list</Collection>
 </Property>
@@ -55,6 +55,10 @@
 <Collection>list</Collection>
 </Property>
 
+<Property name="PropertyAsListOfDataTypes">
+<Type>%ListOfDataTypes</Type>
+</Property>
+
 <Property name="PropertyAsArrayOfDataTypes">
 <Type>%String</Type>
 <Collection>array</Collection>
Index: vhUnitTest/Tools/ObjectDumper/ObjectCreator.cls.xml
===================================================================
diff -u -r1033 -r2008
--- vhUnitTest/Tools/ObjectDumper/ObjectCreator.cls.xml	(.../ObjectCreator.cls.xml)	(revision 1033)
+++ vhUnitTest/Tools/ObjectDumper/ObjectCreator.cls.xml	(.../ObjectCreator.cls.xml)	(revision 2008)
@@ -19,6 +19,9 @@
 	do Object.PropertyAsListOfDataTypes.Insert("Item1")
 	do Object.PropertyAsListOfDataTypes.Insert("Item2")
 	
+	do Object.PropertyAsListOfString.Insert("Item1")
+	do Object.PropertyAsListOfString.Insert("Item2")
+	
 	do Object.PropertyAsArrayOfDataTypes.SetAt("Item1","Key1")
 	do Object.PropertyAsArrayOfDataTypes.SetAt("Item2","Key2")
 	
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")
Index: Tools/ObjectDumper/Base.cls.xml
===================================================================
diff -u -r1907 -r2008
--- Tools/ObjectDumper/Base.cls.xml	(.../Base.cls.xml)	(revision 1907)
+++ Tools/ObjectDumper/Base.cls.xml	(.../Base.cls.xml)	(revision 2008)
@@ -63,7 +63,7 @@
 	set itProperties = ##class(TECH.ListIterator).%New(..GetProperties())
 	while itProperties.HasNext() {
 		#dim Property As Tools.ObjectDumper.dto.Property = itProperties.Next()	
-			
+		break:(Property.Name="NietMeeleveren")&&(..Object.NietMeeleveren.Count())
 		try {
 			continue:..SkipProperty(Property.Name)
 			if Property.ClassType = ##class(Tools.ObjectDumper.enu.ClassType).DataType() {
@@ -224,6 +224,7 @@
 <Implementation><![CDATA[
 	#dim ClassType As Tools.ObjectDumper.enu.ClassType = ""
 	set ClassDefinition = ##class(%CompiledClass).%OpenId(ClassName)
+	
 	if $length(Collection) {
 		if ClassDefinition.Datatype {
 			if Collection = "array" {
@@ -241,8 +242,9 @@
 	} else {
 		if ClassDefinition.Datatype { 
 			set ClassType = ##class(Tools.ObjectDumper.enu.ClassType).DataType()
-		}
-		elseif ClassDefinition.Serial { 
+		} elseif ##class(TECH.ClassUtils).ClassDerivesFrom(ClassName,"%Collection.AbstractListOfDT") {
+			set ClassType = ##class(Tools.ObjectDumper.enu.ClassType).ListOfDataTypes() 
+		} elseif ClassDefinition.Serial { 
 			set ClassType = ##class(Tools.ObjectDumper.enu.ClassType).SerialObject() 
 		} else {
 			set ClassType = ##class(Tools.ObjectDumper.enu.ClassType).Object() 
Index: vhUnitTest/Tools/ObjectDumper/TestCodeCreator.cls.xml
===================================================================
diff -u -r1988 -r2008
--- vhUnitTest/Tools/ObjectDumper/TestCodeCreator.cls.xml	(.../TestCodeCreator.cls.xml)	(revision 1988)
+++ vhUnitTest/Tools/ObjectDumper/TestCodeCreator.cls.xml	(.../TestCodeCreator.cls.xml)	(revision 2008)
@@ -3,16 +3,16 @@
 <Class name="vhUnitTest.Tools.ObjectDumper.TestCodeCreator">
 <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>
@@ -42,6 +42,9 @@
 	do ..AssertValue("set BaseObject.PropertyAsListOfDataTypes = ##class(%ListOfDataTypes).%New()")
 	do ..AssertValue("do BaseObject.PropertyAsListOfDataTypes.Insert(""Item1"")")
 	do ..AssertValue("do BaseObject.PropertyAsListOfDataTypes.Insert(""Item2"")")
+	do ..AssertValue("set BaseObject.PropertyAsListOfString = ##class(%ListOfDataTypes).%New()")
+	do ..AssertValue("do BaseObject.PropertyAsListOfString.Insert(""Item1"")")
+	do ..AssertValue("do BaseObject.PropertyAsListOfString.Insert(""Item2"")")
 	do ..AssertValue("do BaseObject.PropertyAsListOfObjects.Insert(##class(vhUnitTest.Tools.ObjectDumper.Object).%New())")
 	do ..AssertValue("set BaseObject.PropertyAsListOfObjects.GetAt(1).PropertyAsInteger = ""1""")
 	do ..AssertValue("set BaseObject.PropertyAsListOfObjects.GetAt(1).PropertyAsString = ""string""")