Index: Tools/ObjectDumper/Base.cls.xml
===================================================================
diff -u -r510 -r522
--- Tools/ObjectDumper/Base.cls.xml	(.../Base.cls.xml)	(revision 510)
+++ Tools/ObjectDumper/Base.cls.xml	(.../Base.cls.xml)	(revision 522)
@@ -24,7 +24,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,11 +34,9 @@
 <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()		
-		continue:..SkipProperty(Property.Name)
 		if Property.ClassType = ##class(Tools.ObjectDumper.enu.ClassType).DataType() {
 			if Property.MultiDimensional { 
 				do ..AddMultiDimensional(UnformattedList,Property.Name)
@@ -56,8 +54,7 @@
 		} elseif Property.ClassType = ##class(Tools.ObjectDumper.enu.ClassType).ListOfObjects() {
 			do ..AddListOfObjects(UnformattedList,Property.Name)
 		}
-	}
-	
+	} 
 	quit UnformattedList
 ]]></Implementation>
 </Method>
@@ -72,20 +69,23 @@
 
 <Method name="SkipProperty">
 <Final>1</Final>
-<FormalSpec>PropertyName:%String</FormalSpec>
+<FormalSpec>Property:%PropertyDefinition</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 +147,7 @@
 	set itProperties = ##class(TECH.ListIterator).%New(ClassDefinition.Properties)
 	while itProperties.HasNext() {
 		#dim PropertyDefinition As %PropertyDefinition = itProperties.Next()
-		continue:..SkipProperty(PropertyDefinition.Name)
+		continue:..SkipProperty(PropertyDefinition)
 		set dtoProperty = ##class(Tools.ObjectDumper.dto.Property).%New()	
 		set dtoProperty.Name = PropertyDefinition.Name