Index: TECH/CSP/CSPApplicatie.cls.xml
===================================================================
diff -u -r2194 -r2395
--- TECH/CSP/CSPApplicatie.cls.xml	(.../CSPApplicatie.cls.xml)	(revision 2194)
+++ TECH/CSP/CSPApplicatie.cls.xml	(.../CSPApplicatie.cls.xml)	(revision 2395)
@@ -1,7 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
 <Class name="TECH.CSP.CSPApplicatie">
-<IncludeCode>vhLib.Macro</IncludeCode>
 <Super>%RegisteredObject</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -173,11 +172,11 @@
 <FormalSpec>CspClassName:%String,QueryStringParameterList:%ListOfDataTypes=""</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	If $$$Not(##class(TECH.ClassUtils).ClassDerivesFrom(CspClassName,"%CSP.Page")) {
+	If '(##class(TECH.ClassUtils).ClassDerivesFrom(CspClassName,"%CSP.Page")) {
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("De klasse "_CspClassName_" is geen CSP-klasse"))
 	}
 	
-	Set Server=$$$LCase($$$Server)
+	Set Server=$zconvert($zu(110),"L")
 	Set CspClassURL=##class(TECH.ClassUtils).GetClassParameterValue(CspClassName,"CSPURL")
 	
 	Set QueryString=""