Index: Tools/Test/Asserter.cls.xml
===================================================================
diff -u -r1925 -r2122
--- Tools/Test/Asserter.cls.xml	(.../Asserter.cls.xml)	(revision 1925)
+++ Tools/Test/Asserter.cls.xml	(.../Asserter.cls.xml)	(revision 2122)
@@ -288,11 +288,12 @@
 	 #dim manager As Tools.Test.Manager =r%Manager
 	 Set aMessage=aMessage_"["_..ParseAutoQuoted(aAutoQuoted,"expr")_"]"
 	 #dim success As %Boolean = $$$Not(..ReferentieInhoudVerschillend(Folder))
+	 #dim SuiteID As TECH.String = ..Manager.GeefTestType()_"_"_..Manager.GetSuiteID()
 	 if 'success {
 		set FileSaver = ##class(Tools.Test.DiffSaver).%New()
-		do FileSaver.SaveDiff(Folder, ..TestCase.%ClassName(1), ..Manager.GetCurrentMethod())
+		do FileSaver.SaveDiff(Folder, ..TestCase.%ClassName(1), ..Manager.GetCurrentMethod(), SuiteID)
 		
-		set aMessage = aMessage _ ": inhoud van de bestanden verschillend : "_"<a href="_FileSaver.GetDiffFullName(..TestCase.%ClassName(1), ..Manager.GetCurrentMethod(), $$$False)_">"_Folder_"</a>"
+		set aMessage = aMessage _ ": inhoud van de bestanden verschillend : "_"<a href="_FileSaver.GetDiffFullName(..TestCase.%ClassName(1), ..Manager.GetCurrentMethod(), SuiteID, $$$False)_">"_Folder_"</a>"
 		
 	 } else {
 		set success = ..ReferentieRecentAangepast(Folder)