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()