Index: Tools/Test/Checker.cls.xml
===================================================================
diff -u -r2789 -r2889
--- Tools/Test/Checker.cls.xml	(.../Checker.cls.xml)	(revision 2789)
+++ Tools/Test/Checker.cls.xml	(.../Checker.cls.xml)	(revision 2889)
@@ -27,6 +27,18 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ObjectsInMemoryBefore">
+<Type>%String</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
+<Property name="ObjectsInMemoryAfter">
+<Type>%String</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
 <Property name="TestCase">
 <Type>Tools.Test.TestCase</Type>
 <Private>1</Private>
@@ -54,6 +66,14 @@
 	do ..VarsInMemoryBefore.Clear()
 	#dim Var As %String = "%"
 	for  set Var = $order(@Var) quit:Var=""  if ..IsValidVar(Var) do ..VarsInMemoryBefore.Insert(Var)
+	
+	/*
+	do ..ObjectsInMemoryBefore.Clear()
+	set Iterator = ##class(TECH.ListIterator).%New(##class(TECH.Process.impl.ProcessAPI).%New().GeefObjectsInMemory())
+	while Iterator.HasNext() {
+		do ..ObjectsInMemoryBefore.Insert(Iterator.Next().Name)	
+	}
+	*/
 ]]></Implementation>
 </Method>
 
@@ -67,7 +87,7 @@
 				   "aantal voor test : "_..LocksInMemoryBefore.Size_" - aantal na test : "_..LocksInMemoryAfter.Size _ $$$CRLF _
 				   ##class(TECH.ListUtils).ListToPieces(##class(TECH.ListUtils).Verschil(..LocksInMemoryBefore,..LocksInMemoryAfter),";") )
 	}
-
+	
 	quit:$$$Not(..TestCase.GebruiktVariabeleControle())
 	
 	do ..VarsInMemoryAfter.Clear()
@@ -83,6 +103,23 @@
 	
 	do ..VarsInMemoryAfter.Clear()
 	do ..VarsInMemoryBefore.Clear()
+	
+	/*do ..ObjectsInMemoryAfter.Clear()
+	
+	set Iterator = ##class(TECH.ListIterator).%New(##class(TECH.Process.impl.ProcessAPI).%New().GeefObjectsInMemory())
+	while Iterator.HasNext() {
+		do ..ObjectsInMemoryAfter.Insert(Iterator.Next().Name)	
+	}
+
+	if ..ObjectsInMemoryAfter.Size '= ..ObjectsInMemoryBefore.Size {
+		do ..TestCase.Fail( "Object probleem : " _ $$$CRLF 
+				   _ "aantal voor test : "_..ObjectsInMemoryBefore.Size_" - aantal na test : "_..ObjectsInMemoryAfter.Size _ $$$CRLF 
+				   _ ##class(TECH.ListUtils).ListToPieces(##class(TECH.ListUtils).Verschil(..ObjectsInMemoryAfter,..ObjectsInMemoryBefore),";") )
+	}
+	
+	do ..ObjectsInMemoryAfter.Clear()
+	do ..ObjectsInMemoryBefore.Clear()
+	*/
 ]]></Implementation>
 </Method>