Index: Tools/ObjectDumper/Base.cls.xml
===================================================================
diff -u -r522 -r534
--- Tools/ObjectDumper/Base.cls.xml	(.../Base.cls.xml)	(revision 522)
+++ Tools/ObjectDumper/Base.cls.xml	(.../Base.cls.xml)	(revision 534)
@@ -8,14 +8,21 @@
 <Private>1</Private>
 </Property>
 
+<Property name="MagObjectReferentieToevoegen">
+<Type>%Boolean</Type>
+<InitialExpression>0</InitialExpression>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>Object:%Library.Base</FormalSpec>
+<FormalSpec>Object:%Library.Base,MagObjectReferentieToevoegen:%Boolean=1</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	set ..Object = Object 
+	set ..MagObjectReferentieToevoegen = MagObjectReferentieToevoegen
 	quit $$$OK
 ]]></Implementation>
 </Method>
@@ -24,7 +31,7 @@
 <Final>1</Final>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
-	#dim UnformattedList As %Collection.AbstractList = ..GetUnformattedResult()		
+	#dim UnformattedList As %Collection.AbstractList = ..GetUnformattedResult()	
 	quit ..FormatUnformattedList(UnformattedList)
 ]]></Implementation>
 </Method>
@@ -34,27 +41,34 @@
 <ReturnType>%Collection.AbstractList</ReturnType>
 <Implementation><![CDATA[
 	set UnformattedList = ##class(%ListOfDataTypes).%New()
+	
 	set itProperties = ##class(TECH.ListIterator).%New(..GetProperties())
 	while itProperties.HasNext() {
 		#dim Property As Tools.ObjectDumper.dto.Property = itProperties.Next()		
-		if Property.ClassType = ##class(Tools.ObjectDumper.enu.ClassType).DataType() {
-			if Property.MultiDimensional { 
-				do ..AddMultiDimensional(UnformattedList,Property.Name)
-			} else {
-				do ..AddPropertyAsDataType(UnformattedList,Property.Name)
+		try {
+			continue:..SkipProperty(Property.Name)
+			if Property.ClassType = ##class(Tools.ObjectDumper.enu.ClassType).DataType() {
+				if Property.MultiDimensional { 
+					do ..AddMultiDimensional(UnformattedList,Property.Name)
+				} else {
+					do ..AddPropertyAsDataType(UnformattedList,Property.Name)
+				}
+			} elseif Property.ClassType = ##class(Tools.ObjectDumper.enu.ClassType).ListOfDataTypes() {
+				do ..AddListOfDataTypes(UnformattedList,Property.Name)
+			} elseif Property.ClassType = ##class(Tools.ObjectDumper.enu.ClassType).ArrayOfDataTypes() {
+				do ..AddArrayOfDataTypes(UnformattedList,Property.Name)
+			} elseif Property.ClassType = ##class(Tools.ObjectDumper.enu.ClassType).Object() {
+				do ..AddObject(UnformattedList,Property.Name)
+			} elseif Property.ClassType = ##class(Tools.ObjectDumper.enu.ClassType).ArrayOfObjects() {
+				do ..AddArrayOfObjects(UnformattedList,Property.Name)
+			} elseif Property.ClassType = ##class(Tools.ObjectDumper.enu.ClassType).ListOfObjects() {
+				do ..AddListOfObjects(UnformattedList,Property.Name)
 			}
-		} elseif Property.ClassType = ##class(Tools.ObjectDumper.enu.ClassType).ListOfDataTypes() {
-			do ..AddListOfDataTypes(UnformattedList,Property.Name)
-		} elseif Property.ClassType = ##class(Tools.ObjectDumper.enu.ClassType).ArrayOfDataTypes() {
-			do ..AddArrayOfDataTypes(UnformattedList,Property.Name)
-		} elseif Property.ClassType = ##class(Tools.ObjectDumper.enu.ClassType).Object() {
-			do ..AddObject(UnformattedList,Property.Name)
-		} elseif Property.ClassType = ##class(Tools.ObjectDumper.enu.ClassType).ArrayOfObjects() {
-			do ..AddArrayOfObjects(UnformattedList,Property.Name)
-		} elseif Property.ClassType = ##class(Tools.ObjectDumper.enu.ClassType).ListOfObjects() {
-			do ..AddListOfObjects(UnformattedList,Property.Name)
+		} catch {
+		 	write !,"!!!!! ERROR !!!!!! ",Property.Name
 		}
-	} 
+	}	
+	
 	quit UnformattedList
 ]]></Implementation>
 </Method>
@@ -69,23 +83,20 @@
 
 <Method name="SkipProperty">
 <Final>1</Final>
-<FormalSpec>Property:%PropertyDefinition</FormalSpec>
+<FormalSpec>PropertyName:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	#dim PropertyName As %String = Property.Name
 	#dim SkipProperty As %Boolean = 0
 	if 'SkipProperty { set SkipProperty = ( PropertyName="Attributes" ) }
 	if 'SkipProperty { set SkipProperty = ##class(TECH.StringUtils).StartsWith(PropertyName,"%") }
-	if 'SkipProperty { set SkipProperty = Property.Transient }
 	quit SkipProperty
 ]]></Implementation>
 </Method>
 
 <Method name="Dump">
 <Final>1</Final>
 <Implementation><![CDATA[
-	
 	#dim itResult = ##class(TECH.ListIterator).%New(..GetResult())
 	while itResult.HasNext() {
 		write !,itResult.Next()
@@ -147,7 +158,7 @@
 	set itProperties = ##class(TECH.ListIterator).%New(ClassDefinition.Properties)
 	while itProperties.HasNext() {
 		#dim PropertyDefinition As %PropertyDefinition = itProperties.Next()
-		continue:..SkipProperty(PropertyDefinition)
+		continue:..SkipProperty(PropertyDefinition.Name)
 		set dtoProperty = ##class(Tools.ObjectDumper.dto.Property).%New()	
 		set dtoProperty.Name = PropertyDefinition.Name