Index: TECH/ClassUtils.cls.xml
===================================================================
diff -u -r2193 -r2194
--- TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 2193)
+++ TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 2194)
@@ -169,9 +169,9 @@
 <Description>
 Deze oproep enkel gebruiken voor klassen die niet afleiden van %Registered, bijvoorbeeld de csp-klassen, die leiden af van %CSP.Page 
 
-Voor klassen die afleiden van %Registered kan je rechtstreeks volgende oproep gebruiken.
- w ##class(klassenaam).%GetParameter("ParameterNaam")
- w $zobjclassmethod("klassenaam","%GetParameter","ParameterNaam")
+Voor klassen die afleiden van %Registered kan je rechtstreeks oproepen via volgende code : 
+ w ##class(klassenaam).%GetParameter("ParameterNaam") 
+ w $zobjclassmethod("klassenaam","%GetParameter","ParameterNaam") 
 
 Added by WimV on 27/09/2011 </Description>
 <ClassMethod>1</ClassMethod>
@@ -188,5 +188,17 @@
 	Quit ClassParameterValue
 ]]></Implementation>
 </Method>
+
+<Method name="ClassDerivesFrom">
+<Description>
+Bepaalt of een klasse (ClassName) afgeleid is van de andere klasse (ClassNameFrom) 
+Bijvoorbeeld : 
+  w ##class(TECH.ClassUtils).ClassDerivesFrom(CspClassName,"%CSP.Page") </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ClassName:%String,ClassNameFrom:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ##class(%CacheFileBridge.Project).DerivesFrom(ClassName,ClassNameFrom)
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: TECH/CSP/CSPApplicatie.cls.xml
===================================================================
diff -u -r2193 -r2194
--- TECH/CSP/CSPApplicatie.cls.xml	(.../CSPApplicatie.cls.xml)	(revision 2193)
+++ TECH/CSP/CSPApplicatie.cls.xml	(.../CSPApplicatie.cls.xml)	(revision 2194)
@@ -167,26 +167,25 @@
 <Method name="GenereerVolledigeURL">
 <Description>
 Geeft de volledige url terug :  http://server/csp-dir/csp-naam?querystringparams 
-vertrekkende van de gegeven cspKlasseNaam. 
-De QueryStringParameterLijst is een list bvb.  item1 : "key=value"  , item2 : "key2=value2"  , ... </Description>
+vertrekkende van de gegeven CspClassName. 
+De QueryStringParameterList is een list bvb.  item1 : "key=value"  , item2 : "key2=value2"  , ... </Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>CspClassName:%String,QueryStringParameterLijst:%ListOfDataTypes=""</FormalSpec>
+<FormalSpec>CspClassName:%String,QueryStringParameterList:%ListOfDataTypes=""</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	If $$$Not(##class(%CacheFileBridge.Project).DerivesFrom(CspClassName,"%CSP.Page")) {
+	If $$$Not(##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 CspClassURL=##class(TECH.ClassUtils).GetClassParameterValue(CspClassName,"CSPURL")
 	
 	Set QueryString=""
-	If $IsObject(QueryStringParameterLijst) {
-		Set ParamsIterator=##class(TECH.ListIterator).%New(QueryStringParameterLijst)
+	If $IsObject(QueryStringParameterList) {
+		Set ParamsIterator=##class(TECH.ListIterator).%New(QueryStringParameterList)
 		While ParamsIterator.HasNext() {
 			Set KeyValuePair=ParamsIterator.Next()
 			Set QueryString=QueryString_$S($L(QueryString):"&",1:"")_KeyValuePair
-			;Set mdQueryString($P(KeyValuePair,"=",1))=$P(KeyValuePair,"=",2)
 		}
 	}