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>