Index: Tools/UnitTest.inc.rou
===================================================================
diff -u -r1208 -r1213
--- Tools/UnitTest.inc.rou	(.../UnitTest.inc.rou)	(revision 1208)
+++ Tools/UnitTest.inc.rou	(.../UnitTest.inc.rou)	(revision 1213)
@@ -28,6 +28,7 @@
 #define DummyInteger					0
 #define DummyDecimal					0.0
 #define DummyListOfDataTypes()			##class(%ListOfDataTypes).%New()
+#define DummyListOfObjects()			##class(%ListOfObjects).%New()
 #define DummyTimeStamp					##class(vhTest.Utils.FakeTECHDateTime).CurrentTimeStamp()
 #define DummyTime						##class(vhTest.Utils.FakeTECHDateTime).CurrentTime()
 #define DummyDate						##class(vhTest.Utils.FakeTECHDateTime).%New().CurrentDate()
Index: Tools/Test/Asserter.cls.xml
===================================================================
diff -u -r1211 -r1213
--- Tools/Test/Asserter.cls.xml	(.../Asserter.cls.xml)	(revision 1211)
+++ Tools/Test/Asserter.cls.xml	(.../Asserter.cls.xml)	(revision 1213)
@@ -151,6 +151,7 @@
 	#dim manager As Tools.Test.Manager = r%Manager
 	#dim success As %Boolean = ( List.Find(Value) > 0 )
 	Set aMessage=$g(aMessage)_":"
+	Set:'success aMessage = aMessage _" '"_Value_"' niet gevonden"
 	Do manager.LogAssert(success,"AssertInList",aMessage)
  	Quit success
 ]]></Implementation>