Index: Tools/Test/Report.cls.xml
===================================================================
diff -u -r1559 -r1717
--- Tools/Test/Report.cls.xml	(.../Report.cls.xml)	(revision 1559)
+++ Tools/Test/Report.cls.xml	(.../Report.cls.xml)	(revision 1717)
@@ -3,6 +3,7 @@
 <Class name="Tools.Test.Report">
 <Abstract>1</Abstract>
 <ClassType/>
+<IncludeCode>vhLib.Macro</IncludeCode>
 <ProcedureBlock>0</ProcedureBlock>
 <Super>%CSP.Page</Super>
 <System>3</System>
@@ -323,7 +324,7 @@
  &html<<table border="1" cellspacing="0" cellpadding="4" bordercolor="#CCCCCC">>
  &html<<tr bgcolor="#ACBBD5">>
  &html<<td><font color="#FFFFFF"><b>Methods</b></font></td>>
- &html<<td width=100 align=center><font color="#FFFFFF"><b>Description</b></font></td>>   // JCL - Method description toegevoegd
+ &html<<td width=100 align=center><font color="#FFFFFF"><b>Description</b></font></td>>
  &html<<td width=100 align=center><font color="#FFFFFF"><b>Status</b></font></td>>
  &html<</tr>>
  Set method="" For  Set method=$o(@GlobalForLogging@(index,suite,case,method)) Quit:method=""  Do
Index: Tools/Test/Asserter.cls.xml
===================================================================
diff -u -r1715 -r1717
--- Tools/Test/Asserter.cls.xml	(.../Asserter.cls.xml)	(revision 1715)
+++ Tools/Test/Asserter.cls.xml	(.../Asserter.cls.xml)	(revision 1717)
@@ -223,11 +223,13 @@
 <Implementation><![CDATA[
 	 #dim manager As Tools.Test.Manager =r%Manager
 	 Set aMessage=aMessage_"["_..ParseAutoQuoted(aAutoQuoted,"expr")_"]"
-	 Set aMessage=aMessage_" "_Folder
 	 #dim success As %Boolean = $$$Not(..ReferentieInhoudVerschillend(Folder))
 	 if 'success {
-		set aMessage = aMessage _ ": inhoud van de bestanden verschillend"
-		Do ##class(Tools.Test.DiffSaver).%New().BewaarDiff(Folder, ##class(TECH.Files).AppendFile(Folder,"_Differences.diff"))
+		set FileSaver = ##class(Tools.Test.DiffSaver).%New()
+		do FileSaver.SaveDiff(Folder, ..TestCase.%ClassName(1), ..Manager.GetCurrentMethod())
+		
+		set aMessage = aMessage _ ": inhoud van de bestanden verschillend : "_"<a href="_FileSaver.GetDiffFullName(..TestCase.%ClassName(1), ..Manager.GetCurrentMethod(), $$$False)_">"_Folder_"</a>"
+		
 	 } else {
 		set success = ..ReferentieRecentAangepast(Folder)	 
 		if 'success set aMessage = aMessage _ " : minstens 1 bestand is niet recente aangepast "_##class(TECH.DateTime).CurrentTimeStamp()
Index: Tools/Test/Manager.cls.xml
===================================================================
diff -u -r1485 -r1717
--- Tools/Test/Manager.cls.xml	(.../Manager.cls.xml)	(revision 1485)
+++ Tools/Test/Manager.cls.xml	(.../Manager.cls.xml)	(revision 1717)
@@ -554,6 +554,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GetCurrentMethod">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit i%TheStack(i%TheStack,"method")
+]]></Implementation>
+</Method>
+
 <Method name="GetGlobalForLogging">
 <Abstract>1</Abstract>
 <ClassMethod>1</ClassMethod>