Index: WS/TestServer.cls.xml
===================================================================
diff -u -r36896 -r36897
--- WS/TestServer.cls.xml	(.../TestServer.cls.xml)	(revision 36896)
+++ WS/TestServer.cls.xml	(.../TestServer.cls.xml)	(revision 36897)
@@ -37,7 +37,7 @@
 <FormalSpec>Mail:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <WebMethod>1</WebMethod>
-<Implementation><![CDATA[	quit $$ParseStatus^vhLib($$SendMiniMail^vhLib.Mail("admincache@vanhoecke",$LB(Mail),"Test From SendMiniMail","Body is body ;-)",0,0,"","","","","","", 0))
+<Implementation><![CDATA[	quit $$ParseStatus^vhLib($$SendMiniMail^vhLib.Mail("admincache@vanhoecke",$LB(Mail),"Test From SendMiniMail on "_$$$Server,"Body is body ;-)",0,0,"","","","","","", 0))
 ]]></Implementation>
 </Method>
 </Class>