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)