Index: vhUnitTest/zTryout/SHO/Test/ToString/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/zTryout/SHO/Test/ToString/Test.cls.xml	(revision 0)
+++ vhUnitTest/zTryout/SHO/Test/ToString/Test.cls.xml	(revision 60401)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.zTryout.SHO.Test.ToString.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test dumpen van leeg object naar xml">
+<Implementation><![CDATA[
+	Set TestKlasse = ##class(zTryout.SHO.Test).%New(6)
+	// #dim x As %String
+	// Set x = TestKlasse.ToString()
+	
+	Do $$$AssertEquals(TestKlasse.Breedte, 6)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/zTryout/SHE/Test/ToString/Test.cls.xml
===================================================================
diff -u -r59353 -r60401
--- vhUnitTest/zTryout/SHE/Test/ToString/Test.cls.xml	(.../Test.cls.xml)	(revision 59353)
+++ vhUnitTest/zTryout/SHE/Test/ToString/Test.cls.xml	(.../Test.cls.xml)	(revision 60401)
@@ -5,7 +5,7 @@
 
 <Method name="Test dumpen van leeg object naar xml">
 <Implementation><![CDATA[
-	Set TestKlasse = ##class(zTryout.SHE.Test).%New(6)
+	Set TestKlasse = ##class(zTryout.SHO.Test).%New(6)
 	// #dim x As %String
 	// Set x = TestKlasse.ToString()
 	
Index: zTryout/SHO/Test.cls.xml
===================================================================
diff -u
--- zTryout/SHO/Test.cls.xml	(revision 0)
+++ zTryout/SHO/Test.cls.xml	(revision 60401)
@@ -0,0 +1,49 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.SHO.Test">
+<ClassType>serial</ClassType>
+<Super>%SerialObject,%XML.Adaptor</Super>
+
+<Property name="Breedte">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="Hoogte">
+<Type>%Integer</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Breedte:%Integer</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..Breedte = Breedte
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ToString">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $$ObjToXML^vhLib(%this)
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>TestState</State>
+<StreamLocation>^zTryout.SHE.TestS</StreamLocation>
+<Data name="TestState">
+<Value name="1">
+<Value>Breedte</Value>
+</Value>
+<Value name="2">
+<Value>Hoogte</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>