Index: Tools/ObjectDumper/Base.cls.xml
===================================================================
diff -u -r799 -r1032
--- Tools/ObjectDumper/Base.cls.xml	(.../Base.cls.xml)	(revision 799)
+++ Tools/ObjectDumper/Base.cls.xml	(.../Base.cls.xml)	(revision 1032)
@@ -256,7 +256,8 @@
 	set Error = ""
 	#dim PropertyValue As %CacheString = ""
 	try {
-	 	set PropertyValue = $zobjproperty(..Object,PropertyName)
+	 	set PropertyValue = $property(..Object,PropertyName)
+	 	if ($IsObject(PropertyValue) && PropertyValue.%Extends("%Stream")) set PropertyValue = $method(PropertyValue,"Read")
 	} catch {
 		#dim Exception As TECH.Exception = ##class(TECH.ExceptionHandler).Catch()
 		set Error = Exception.GeefOmschrijving()
Index: Tools/ObjectDumper/CodeCreator.cls.xml
===================================================================
diff -u -r799 -r1032
--- Tools/ObjectDumper/CodeCreator.cls.xml	(.../CodeCreator.cls.xml)	(revision 799)
+++ Tools/ObjectDumper/CodeCreator.cls.xml	(.../CodeCreator.cls.xml)	(revision 1032)
@@ -131,7 +131,11 @@
 <FormalSpec>List:%ListOfObjects,PropertyName:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim itItems As TECH.ListIterator = ##class(TECH.ListIterator).%New(..GetPropertyValue(PropertyName))
+	
+	#dim Value As %String = ..GetPropertyValue(PropertyName)
+	#dim itItems As TECH.ListIterator = ##class(TECH.ListIterator).%New(Value)
+	
+
 	while itItems.HasNext() {
 		#dim Object As %Library.Base = itItems.Next()
 		#dim Key As %CacheString = itItems.Key()