Index: TECH/XmlObjectUtils.cls.xml
===================================================================
diff -u -r3013 -r3019
--- TECH/XmlObjectUtils.cls.xml	(.../XmlObjectUtils.cls.xml)	(revision 3013)
+++ TECH/XmlObjectUtils.cls.xml	(.../XmlObjectUtils.cls.xml)	(revision 3019)
@@ -5,7 +5,7 @@
 
 <Method name="GeefXMLStream">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>Dto:TECH.DataTransferObject,TopTag:%String=""</FormalSpec>
+<FormalSpec>Dto:%XML.Adaptor,TopTag:%String=""</FormalSpec>
 <ReturnType>%GlobalCharacterStream</ReturnType>
 <Implementation><![CDATA[
 	Set XMLStream=##class(%GlobalCharacterStream).%New()
@@ -16,14 +16,14 @@
 
 <Method name="VoegToeXMLAanStream">
 <ClassMethod>1</ClassMethod>
-<FormalSpec><![CDATA[&XMLStream:%Library.AbstractStream,Dto:TECH.DataTransferObject,TopTag:%String=""]]></FormalSpec>
+<FormalSpec><![CDATA[&XMLStream:%Library.AbstractStream,Dto:%XML.Adaptor,TopTag:%String=""]]></FormalSpec>
 <Implementation><![CDATA[
 	#define AllowEmptyProxy 	0
 	#define NoXMLDeclaration	0
 	#define IndentTags			1
 
-	If ('Dto.%Extends("TECH.DataTransferObject")) {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("DataTransferObject is niet ondersteund ("_Dto_")."))	
+	If ('Dto.%Extends("%XML.Adaptor")) {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("XmlObject is niet ondersteund ("_Dto_")."))	
 	}
 	
 	#dim StatusCode As %Status = $$ProxyToXMLStream^vhLib(Dto, XMLStream, .TopTag, $$$IndentTags, $$$AllowEmptyProxy, $$$NoXMLDeclaration)