Index: Tools/ObjectDumper/CodeCreator.cls.xml
===================================================================
diff -u -r502 -r510
--- Tools/ObjectDumper/CodeCreator.cls.xml	(.../CodeCreator.cls.xml)	(revision 502)
+++ Tools/ObjectDumper/CodeCreator.cls.xml	(.../CodeCreator.cls.xml)	(revision 510)
@@ -56,7 +56,7 @@
 <FormalSpec>List:%ListOfObjects,PropertyName:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim Value As %CacheString = $zobjproperty(..Object,PropertyName)
+	#dim Value As %CacheString = ..GetPropertyValue(PropertyName)
 	if $listvalid(Value) { 
 		set Value = $$LCVTXTDXTD^vhLib(Value,"$listbuild(",",",")","",1)
 		do List.Insert(..GenCommand($$$Set,PropertyName_" = "_Value))
@@ -71,7 +71,7 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	do List.Insert(..GenCommand($$$Set,PropertyName_" = ##class(%ListOfDataTypes).%New()"))
-	#dim itItems As TECH.ListIterator = ##class(TECH.ListIterator).%New($zobjProperty(..Object,PropertyName))
+	#dim itItems As TECH.ListIterator = ##class(TECH.ListIterator).%New(..GetPropertyValue(PropertyName))
 	while itItems.HasNext() {
 		#dim Value As %CacheString = itItems.Next()
 		#dim Key As %CacheString = itItems.Key()
@@ -85,7 +85,7 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	do List.Insert(..GenCommand($$$Set,PropertyName_" = ##class(%ArrayOfDataTypes).%New()"))
-	#dim itItems As TECH.ListIterator = ##class(TECH.ListIterator).%New($zobjProperty(..Object,PropertyName))
+	#dim itItems As TECH.ListIterator = ##class(TECH.ListIterator).%New(..GetPropertyValue(PropertyName))
 	while itItems.HasNext() {
 		#dim Value As %CacheString = itItems.Next()
 		#dim Key As %CacheString = itItems.Key()
@@ -98,7 +98,7 @@
 <FormalSpec>List:%ListOfObjects,PropertyName:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim itItems As TECH.ListIterator = ##class(TECH.ListIterator).%New($zobjProperty(..Object,PropertyName))
+	#dim itItems As TECH.ListIterator = ##class(TECH.ListIterator).%New(..GetPropertyValue(PropertyName))
 	while itItems.HasNext() {
 		#dim Object As %Library.Base = itItems.Next()
 		#dim Key As %CacheString = itItems.Key()
@@ -119,7 +119,7 @@
 <FormalSpec>List:%ListOfObjects,PropertyName:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim itItems As TECH.ListIterator = ##class(TECH.ListIterator).%New($zobjProperty(..Object,PropertyName))
+	#dim itItems As TECH.ListIterator = ##class(TECH.ListIterator).%New(..GetPropertyValue(PropertyName))
 	while itItems.HasNext() {
 		#dim Object As %Library.Base = itItems.Next()
 		#dim Key As %CacheString = itItems.Key()
@@ -139,7 +139,7 @@
 <FormalSpec>List:%ListOfObjects,PropertyName:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim Object As %Library.Base = $zobjProperty(..Object,PropertyName)
+	#dim Object As %Library.Base = ..GetPropertyValue(PropertyName)
 	if $IsObject(Object) {
 		do List.Insert(..GenCommand($$$Set,PropertyName_" = ##class("_Object.%ClassName(1)_").%New()"))
 		set ObjectDumper = ##class(Tools.ObjectDumper.CodeCreator).%New(Object,0)
Index: Tools/ObjectDumper/Dumper.cls.xml
===================================================================
diff -u -r502 -r510
--- Tools/ObjectDumper/Dumper.cls.xml	(.../Dumper.cls.xml)	(revision 502)
+++ Tools/ObjectDumper/Dumper.cls.xml	(.../Dumper.cls.xml)	(revision 510)
@@ -7,7 +7,7 @@
 <FormalSpec>List:%ListOfDataTypes,PropertyName:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim Value As %CacheString = $zobjproperty(..Object,PropertyName)
+	#dim Value As %CacheString = ..GetPropertyValue(PropertyName)
 	set Value = $$LCVT^vhLib(Value)
 	if $length(Value) {
 		do List.Insert(PropertyName_" = "_Value)	
@@ -33,8 +33,8 @@
 <FormalSpec>List:%ListOfDataTypes,PropertyName:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	do List.Insert(PropertyName_" = "_$zobjproperty(..Object,PropertyName))
-	#dim itItems As TECH.ListIterator = ##class(TECH.ListIterator).%New($zobjProperty(..Object,PropertyName))
+	do List.Insert(PropertyName_" = "_..GetPropertyValue(PropertyName))
+	#dim itItems As TECH.ListIterator = ##class(TECH.ListIterator).%New(..GetPropertyValue(PropertyName))
 	while itItems.HasNext() {
 		#dim Value As %CacheString = itItems.Next()
 		#dim Key As %CacheString = itItems.Key()
@@ -61,9 +61,9 @@
 <FormalSpec>List:%ListOfDataTypes,PropertyName:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	do List.Insert(PropertyName_" = "_$zobjproperty(..Object,PropertyName))
+	do List.Insert(PropertyName_" = "_..GetPropertyValue(PropertyName))
 	
-	#dim itItems As TECH.ListIterator = ##class(TECH.ListIterator).%New($zobjProperty(..Object,PropertyName))
+	#dim itItems As TECH.ListIterator = ##class(TECH.ListIterator).%New(..GetPropertyValue(PropertyName))
 	while itItems.HasNext() {
 		#dim Object As %Library.Base = itItems.Next()
 		#dim Key As %CacheString = itItems.Key()
@@ -84,7 +84,7 @@
 <Implementation><![CDATA[
 	do ..AddObjectReferenceInfo(List,PropertyName)
 
-	#dim Object As %Library.Base = $zobjProperty(..Object,PropertyName)
+	#dim Object As %Library.Base = ..GetPropertyValue(PropertyName)
 	if $IsObject(Object) {
 		set ObjectDumper = ##class(Tools.ObjectDumper.Dumper).%New(Object)
 		set itObjectResult = ##class(TECH.ListIterator).%New(ObjectDumper.GetResult())
@@ -100,9 +100,9 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim String = ""
-	set String = PropertyName_" = "_$zobjproperty(..Object,PropertyName)
+	set String = PropertyName_" = "_..GetPropertyValue(PropertyName)
 	try {
-		set String = String _" ("_$zobjproperty(..Object,PropertyName).%Id()_")"
+		set String = String _" ("_..GetPropertyValue(PropertyName).%Id()_")"
 	} catch {
 		do ##class(TECH.ExceptionHandler).Catch()
 		}
Index: Tools/ObjectDumper/Base.cls.xml
===================================================================
diff -u -r502 -r510
--- Tools/ObjectDumper/Base.cls.xml	(.../Base.cls.xml)	(revision 502)
+++ Tools/ObjectDumper/Base.cls.xml	(.../Base.cls.xml)	(revision 510)
@@ -77,12 +77,8 @@
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	#dim SkipProperty As %Boolean = 0
-	if 'SkipProperty {
-		set SkipProperty = ( PropertyName="Attributes" )
-	}
-	elseif 'SkipProperty {
-		set SkipProperty = ##class(TECH.StringUtils).StartsWith(PropertyName,"%")
-	}
+	if 'SkipProperty { set SkipProperty = ( PropertyName="Attributes" ) }
+	if 'SkipProperty { set SkipProperty = ##class(TECH.StringUtils).StartsWith(PropertyName,"%") }
 	quit SkipProperty
 ]]></Implementation>
 </Method>
@@ -151,14 +147,15 @@
 	set itProperties = ##class(TECH.ListIterator).%New(ClassDefinition.Properties)
 	while itProperties.HasNext() {
 		#dim PropertyDefinition As %PropertyDefinition = itProperties.Next()
+		continue:..SkipProperty(PropertyDefinition.Name)
 		set dtoProperty = ##class(Tools.ObjectDumper.dto.Property).%New()	
 		set dtoProperty.Name = PropertyDefinition.Name
 		
 		set dtoProperty.ClassName = ..GetClassName(PropertyDefinition)
 		set dtoProperty.ClassType = ..GetClassType(dtoProperty.ClassName,PropertyDefinition.Collection)	
 		set dtoProperty.MultiDimensional = PropertyDefinition.MultiDimensional
 	
-		if 'PropertyDefinition.Private do Properties.Insert(dtoProperty)
+		do Properties.Insert(dtoProperty)
 	}
 	
 	quit Properties
@@ -215,6 +212,59 @@
 	quit ClassType
 ]]></Implementation>
 </Method>
+
+<Method name="GetPropertyValue">
+<Final>1</Final>
+<FormalSpec>PropertyName:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%CacheString</ReturnType>
+<Implementation><![CDATA[
+	#dim PropertyValue As %String = ""
+	#dim Error As %String = ""
+	
+	set PropertyValue = ..GetPropertyValueDirect(PropertyName,.Error)
+	if $length(Error) set PropertyValue = ..GetPropertyValueUsingMethod(PropertyName,.Error)
+	if $length(Error) set PropertyValue = Error
+	
+	quit PropertyValue
+]]></Implementation>
+</Method>
+
+<Method name="GetPropertyValueDirect">
+<Final>1</Final>
+<FormalSpec><![CDATA[PropertyName:%String,&Error:%String]]></FormalSpec>
+<Private>1</Private>
+<ReturnType>%CacheString</ReturnType>
+<Implementation><![CDATA[
+	set Error = ""
+	#dim PropertyValue As %CacheString = ""
+	try {
+	 	set PropertyValue = $zobjproperty(..Object,PropertyName)
+	} catch {
+		#dim Exception As TECH.Exception = ##class(TECH.ExceptionHandler).Catch()
+		set Error = Exception.GeefOmschrijving()
+	}
+	quit PropertyValue
+]]></Implementation>
+</Method>
+
+<Method name="GetPropertyValueUsingMethod">
+<Final>1</Final>
+<FormalSpec><![CDATA[PropertyName:%String,&Error:%String]]></FormalSpec>
+<Private>1</Private>
+<ReturnType>%CacheString</ReturnType>
+<Implementation><![CDATA[
+	set Error = ""
+	#dim PropertyValue As %CacheString = ""
+	try {
+	 	set PropertyValue = $zobjMethod(..Object,"Geef"_PropertyName)
+	} catch {
+		#dim Exception As TECH.Exception = ##class(TECH.ExceptionHandler).Catch()
+		set Error = Exception.GeefOmschrijving()
+	}
+	quit PropertyValue
+]]></Implementation>
+</Method>
 </Class>