Index: vhUnitTest/Manager.cls.xml
===================================================================
diff -u -r12 -r320
--- vhUnitTest/Manager.cls.xml	(.../Manager.cls.xml)	(revision 12)
+++ vhUnitTest/Manager.cls.xml	(.../Manager.cls.xml)	(revision 320)
@@ -61,7 +61,8 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
  
-
+ Do ##class(vhLib.OldSchool).InitVars()
+ 
  ; hier heb ik een lijntje commentaar toegevoegd bij wijze van test..
  
  Set manager=..%New()
@@ -112,11 +113,11 @@
 	set Message = "http://"_$$$Server_":"_port_"/csp/admin1/vhUnitTest.Report.cls?NS="_##class(%CSP.Page).EscapeURL($znspace)_"&INDEX="_manager.LogIndex_"&SUITE="_testsuite
    	if 'manager.IsSuccess(testsuite) {	 
     	Set MailTo = $listbuild(##class(TECH.Config.ConfigMgr).Instance().GetString("vhUnitTest.SendToWhenFailed"))
-    	Do SendMiniMail^vhLib(From,MailTo,"UnitTest "_manager.LogIndex_" Failed on ["_$$$Server_" - "_$$$NSpace_"]",Message,0) 
+    	Do SendMiniMailForced^vhLib.Mail(From,MailTo,"UnitTest "_manager.LogIndex_" Failed on ["_$$$Server_"]",Message,0) 
 	} 
 	else {
 		Set MailTo = $listbuild(##class(TECH.Config.ConfigMgr).Instance().GetString("vhUnitTest.SendToWhenSucceeded"))
-    	Do SendMiniMail^vhLib(From,MailTo,"UnitTest "_manager.LogIndex_" Succeeded on ["_$$$Server_" - "_$$$NSpace_"]",Message,0) 
+    	Do SendMiniMailForced^vhLib.Mail(From,MailTo,"UnitTest "_manager.LogIndex_" Succeeded on ["_$$$Server_"]",Message,0) 
 	}
  }
 
@@ -361,7 +362,7 @@
 <Implementation><![CDATA[
  Set port=$get(^%SYS("SSPort"),1972)
  Do ..PrintLine("Use the following URL to view the result:")
- Do ..PrintLine("http://"_$$$Server_":"_port_"/csp/"_$$$NSpace_"/vhUnitTest.Report.cls?NS="_##class(%CSP.Page).EscapeURL($znspace)_"&INDEX="_i%LogIndex)
+ Do ..PrintLine("http://"_$$$Server_":"_port_"/csp/admin1/vhUnitTest.Report.cls?NS="_##class(%CSP.Page).EscapeURL($znspace)_"&INDEX="_i%LogIndex)
  Quit
 ]]></Implementation>
 </Method>