Index: Tools/Test/Checker.cls.xml
===================================================================
diff -u -r2691 -r2698
--- Tools/Test/Checker.cls.xml	(.../Checker.cls.xml)	(revision 2691)
+++ Tools/Test/Checker.cls.xml	(.../Checker.cls.xml)	(revision 2698)
@@ -53,7 +53,7 @@
 	
 	do ..VarsInMemoryBefore.Clear()
 	#dim Var As %String = "%"
-	for  set Var = $order(@Var) quit:Var=""  if ..ValidVar(Var) do ..VarsInMemoryBefore.Insert(Var)
+	for  set Var = $order(@Var) quit:Var=""  if ..IsValidVar(Var) do ..VarsInMemoryBefore.Insert(Var)
 ]]></Implementation>
 </Method>
 
@@ -73,7 +73,7 @@
 	do ..VarsInMemoryAfter.Clear()
 	
 	#dim Var As %String = "%"
-	for  set Var = $order(@Var) quit:Var=""  if ..ValidVar(Var) do ..VarsInMemoryAfter.Insert(Var)
+	for  set Var = $order(@Var) quit:Var=""  if ..IsValidVar(Var) do ..VarsInMemoryAfter.Insert(Var)
 	
 	if ..VarsInMemoryAfter.Size '= ..VarsInMemoryBefore.Size {
 		do ..TestCase.Fail( "Variabelen probleem : " _ $$$CRLF _ 
@@ -86,18 +86,31 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ValidVar">
+<Method name="IsValidVar">
 <FormalSpec>Var:%String</FormalSpec>
+<Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	quit:..TestCase.GekendeMemoryLeaks()[(","_Var)
+	quit:..IsGekendeMemoryLeak(Var) 0
 	quit:$extract(Var)="%" 0
 	quit:Var="SQLCODE" 0
 	quit:Var="sc" 0
 	
 	quit 1
 ]]></Implementation>
 </Method>
+
+<Method name="IsGekendeMemoryLeak">
+<FormalSpec>Var:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim IsGekend As %Boolean = 0
+	#dim GekendeLeaks As %String = ..TestCase.GekendeMemoryLeaks()
+	if $length(GekendeLeaks) set IsGekend = GekendeLeaks [ (","_Var)
+	quit IsGekend
+]]></Implementation>
+</Method>
 </Class>