Index: Tools/ObjectDumper/Base.cls.xml
===================================================================
diff -u -r2677 -r2824
--- Tools/ObjectDumper/Base.cls.xml	(.../Base.cls.xml)	(revision 2677)
+++ Tools/ObjectDumper/Base.cls.xml	(.../Base.cls.xml)	(revision 2824)
@@ -87,6 +87,8 @@
 				do ..AddArrayOfObjects(UnformattedList,Property.Name)
 			} elseif Property.ClassType = ##class(Tools.ObjectDumper.enu.ClassType).ListOfObjects() {
 				do ..AddListOfObjects(UnformattedList,Property.Name)
+			} elseif Property.ClassType = ##class(Tools.ObjectDumper.enu.ClassType).SerialObject() {
+				do ..AddObject(UnformattedList,Property.Name)
 			}
 		} catch {
 		 	#dim FoutMsg As %String = ##class(TECH.ExceptionHandler).Catch().ToString()
@@ -255,6 +257,7 @@
 			set ClassType = ##class(Tools.ObjectDumper.enu.ClassType).Object() 
 		}
 	}
+
 	quit ClassType
 ]]></Implementation>
 </Method>
Index: vhUnitTest/Tools/ObjectDumper/TestDumper.cls.xml
===================================================================
diff -u -r2008 -r2824
--- vhUnitTest/Tools/ObjectDumper/TestDumper.cls.xml	(.../TestDumper.cls.xml)	(revision 2008)
+++ vhUnitTest/Tools/ObjectDumper/TestDumper.cls.xml	(.../TestDumper.cls.xml)	(revision 2824)
@@ -55,7 +55,7 @@
 	do ..AssertValue("PropertyAsObjectZonderPackage = nn@vhUnitTest.Tools.ObjectDumper.Object")
 	do ..AssertValue("PropertyAsObjectZonderPackage.PropertyAsInteger = 1")
 	do ..AssertValue("PropertyAsObjectZonderPackage.PropertyAsString = string")
-
+	
 	do ..AssertValue("PropertyAsArrayOfObjects = nn@%Collection.ArrayOfObj")
 	do ..AssertValue("PropertyAsArrayOfObjects[Key1].PropertyAsInteger = 1")
 	do ..AssertValue("PropertyAsArrayOfObjects[Key1].PropertyAsString = string")
@@ -76,6 +76,10 @@
 	
 	do ..AssertValue("PropertyAsEnumeration = 1")
 	
+	do ..AssertValue("PropertyAsSerialObject = nn@vhUnitTest.Tools.ObjectDumper.SerialObject")
+	do ..AssertValue("PropertyAsSerialObject.PropertyAsInteger = 1")
+	do ..AssertValue("PropertyAsSerialObject.PropertyAsString = string")
+	
 	do $$$AssertEquals(..DumpResult.Count(),..AssertCounter,"aantal gecontroleerd is gelijk aan verwacht")
 ]]></Implementation>
 </Method>
Index: vhUnitTest/Tools/ObjectDumper/TestCodeCreator.cls.xml
===================================================================
diff -u -r2008 -r2824
--- vhUnitTest/Tools/ObjectDumper/TestCodeCreator.cls.xml	(.../TestCodeCreator.cls.xml)	(revision 2008)
+++ vhUnitTest/Tools/ObjectDumper/TestCodeCreator.cls.xml	(.../TestCodeCreator.cls.xml)	(revision 2824)
@@ -63,6 +63,9 @@
 	do ..AssertValue("set BaseObject.PropertyAsString = ""string""")
 	do ..AssertValue("set BaseObject.PropertyAsList = $listbuild(""Item1"",$listbuild(""Item2.1"",""Item2.2""))")
 	do ..AssertValue("set BaseObject.PropertyAsEnumeration = ##class(vhUnitTest.Tools.ObjectDumper.Enumeration).Een()")
+	do ..AssertValue("set BaseObject.PropertyAsSerialObject = ##class(vhUnitTest.Tools.ObjectDumper.SerialObject).%New()")
+	do ..AssertValue("set BaseObject.PropertyAsSerialObject.PropertyAsInteger = ""1""")
+	do ..AssertValue("set BaseObject.PropertyAsSerialObject.PropertyAsString = ""string""")
 	
 	
 	do $$$AssertEquals(##class(TECH.ListUtils).ListToPieces(..DumpResult,$C(13,10)),"")