Index: WS/TBX/DataIOWWWSoap.cls.xml
===================================================================
diff -u -r43298 -r43299
--- WS/TBX/DataIOWWWSoap.cls.xml	(.../DataIOWWWSoap.cls.xml)	(revision 43298)
+++ WS/TBX/DataIOWWWSoap.cls.xml	(.../DataIOWWWSoap.cls.xml)	(revision 43299)
@@ -46,17 +46,24 @@
 
 <Method name="WSOrdToWWW">
 <Final>1</Final>
-<FormalSpec>WSOrd:WS.TBX.Order,SecureKey:%String,Opties:%String</FormalSpec>
+<FormalSpec>WSOrd:WS.TBX.Order,SecureKey:%String,Opties:%String=""</FormalSpec>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%List</ReturnType>
 <WebMethod>1</WebMethod>
 <SoapBindingStyle>document</SoapBindingStyle>
 <SoapBodyUse>literal</SoapBodyUse>
 <Implementation><![CDATA[
-	 Do ##class(vhLib.Logger).%New().Info("WSOrdToWWW - Out", $$ObjToXML^vhLib(WSOrd)_$$$CRLF_$Get(Opties))
+	 Set Info = ##class(%GlobalCharacterStream).%New()
+	 Do ObjToXML^vhLib(WSOrd,,,,Info)
+	 Do Info.Write($$$CRLF_Opties)
+	 
+	 Do ##class(vhLib.Logger).%New().Info("WSOrdToWWW - Out", Info)
+	 
 	 #dim lbResult As %List = ..WebMethod("WSOrdToWWW").Invoke(##this,"http://vhsie.vanhoecke.be/WS.TBX.DataIOWWW.WSOrdToWWW",.WSOrd,.SecureKey,.Opties)
+	 
 	 Set $LI(lbResult,4)=$System.Encryption.Base64Decode($LG(lbResult,4))
 	 Do ##class(vhLib.Logger).%New().Info("WSOrdToWWW - In", $$$LCVT(lbResult))
+	 
 	 Quit lbResult
 ]]></Implementation>
 </Method>
@@ -71,8 +78,13 @@
 <SoapBodyUse>literal</SoapBodyUse>
 <Implementation><![CDATA[
 	 Do ##class(vhLib.Logger).%New().Info("GetWSOrdFromWWW - Out", "WSOrderID="_WSOrderID)
+	 
 	 #dim WSOrd As WS.TBX.Order = ..WebMethod("GetWSOrdFromWWW").Invoke(##this,"http://vhsie.vanhoecke.be/WS.TBX.DataIOWWW.GetWSOrdFromWWW",.WSOrderID,.SecureKey)
-	 Do ##class(vhLib.Logger).%New().Info("GetWSOrdFromWWW - In ", $$ObjToXML^vhLib(WSOrd))
+	 
+	 Set Info = ##class(%GlobalCharacterStream).%New()
+	 Do ObjToXML^vhLib(WSOrd,,,,Info)
+	 Do ##class(vhLib.Logger).%New().Info("GetWSOrdFromWWW - In ", Info)
+	 
 	 Quit WSOrd
 ]]></Implementation>
 </Method>