Index: DW/WWW/SysLogTBX.cls.xml
===================================================================
diff -u -r2 -r22
--- DW/WWW/SysLogTBX.cls.xml	(.../SysLogTBX.cls.xml)	(revision 2)
+++ DW/WWW/SysLogTBX.cls.xml	(.../SysLogTBX.cls.xml)	(revision 22)
@@ -203,18 +203,7 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Domein:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-#define DomVHEPN     $$$TBoxWebDomeinVHEPN
-#define DomHEIN      $$$TBoxWebDomeinHEIN
-#define DomOPTIMA    $$$TBoxWebDomeinOPTIMA
-#define DomDUPONT    $$$TBoxWebDomeinDUPONT
-#define DomHELMY     $$$TBoxWebDomeinHELMY
-#define DomHFLE      $$$TBoxWebDomeinHFLE
-#define DomSFS       $$$TBoxWebDomeinSFS
-#define DomMBHO      $$$TBoxWebDomeinMBHO
-#define DomDEMO      $$$TBoxWebDomeinDEMO
-
- Quit $CASE(Domein, $$$DomVHEPN:"vh", $$$DomHEIN:"hein", $$$DomOPTIMA:"optima", $$$DomDUPONT:"dupont", $$$DomHELMY:"destil", $$$DomHFLE:"hafele", $$$DomSFS:"sfs", $$$DomMBHO:"mbho", $$$DomDEMO:"demo", :Domein)
+<Implementation><![CDATA[	Quit ##class(APPS.TBXWeb.TBXContext).GeefDomeinKort(Domein)
 ]]></Implementation>
 </Method>