Index: vhUnitTest/TECH/Svg/Basis/DomElement/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Svg/Basis/DomElement/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Svg/Basis/DomElement/Test.cls.xml	(revision 3620)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Svg.Basis.DomElement.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test bestaan van nieuw basis DomElement">
+<Implementation><![CDATA[
+	
+	Set DomElement = ##class(TECH.Svg.Basis.DomElement).%New()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/Svg/Basis/DomElement.cls.xml
===================================================================
diff -u
--- TECH/Svg/Basis/DomElement.cls.xml	(revision 0)
+++ TECH/Svg/Basis/DomElement.cls.xml	(revision 3620)
@@ -0,0 +1,13 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Svg.Basis.DomElement">
+<Super>%SerialObject,%XML.Adaptor</Super>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<StreamLocation>^TECH.Svg.Basis.DomElementS</StreamLocation>
+</Storage>
+</Class>
+
+
+</Export>