Index: vhUnitTest/Tools/ObjectDumper/TestCodeCreator.cls.xml
===================================================================
diff -u -r1988 -r2008
--- vhUnitTest/Tools/ObjectDumper/TestCodeCreator.cls.xml	(.../TestCodeCreator.cls.xml)	(revision 1988)
+++ vhUnitTest/Tools/ObjectDumper/TestCodeCreator.cls.xml	(.../TestCodeCreator.cls.xml)	(revision 2008)
@@ -3,16 +3,16 @@
 <Class name="vhUnitTest.Tools.ObjectDumper.TestCodeCreator">
 <Super>vhUnitTest.TestCase</Super>
 
+<Parameter name="GebruiktVariabeleControle">
+<Default>0</Default>
+</Parameter>
+
 <Property name="AssertCounter">
 <Type>%Integer</Type>
 <InitialExpression>0</InitialExpression>
 <Private>1</Private>
 </Property>
 
-<Parameter name="GebruiktVariabeleControle">
-<Default>0</Default>
-</Parameter>
-
 <Property name="DumpResult">
 <Type>%ListOfDataTypes</Type>
 <Private>1</Private>
@@ -42,6 +42,9 @@
 	do ..AssertValue("set BaseObject.PropertyAsListOfDataTypes = ##class(%ListOfDataTypes).%New()")
 	do ..AssertValue("do BaseObject.PropertyAsListOfDataTypes.Insert(""Item1"")")
 	do ..AssertValue("do BaseObject.PropertyAsListOfDataTypes.Insert(""Item2"")")
+	do ..AssertValue("set BaseObject.PropertyAsListOfString = ##class(%ListOfDataTypes).%New()")
+	do ..AssertValue("do BaseObject.PropertyAsListOfString.Insert(""Item1"")")
+	do ..AssertValue("do BaseObject.PropertyAsListOfString.Insert(""Item2"")")
 	do ..AssertValue("do BaseObject.PropertyAsListOfObjects.Insert(##class(vhUnitTest.Tools.ObjectDumper.Object).%New())")
 	do ..AssertValue("set BaseObject.PropertyAsListOfObjects.GetAt(1).PropertyAsInteger = ""1""")
 	do ..AssertValue("set BaseObject.PropertyAsListOfObjects.GetAt(1).PropertyAsString = ""string""")