Index: Tools/Test/DiffSaver.cls.xml
===================================================================
diff -u -r2122 -r2123
--- Tools/Test/DiffSaver.cls.xml	(.../DiffSaver.cls.xml)	(revision 2122)
+++ Tools/Test/DiffSaver.cls.xml	(.../DiffSaver.cls.xml)	(revision 2123)
@@ -41,6 +41,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GetFilePath">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ##class(TECH.Files).AppendSubPath(##class(TECH.CSP.CSPApplicatie).Instance().Directory(),"testresults")
+]]></Implementation>
+</Method>
+
 <Method name="RemoveAllDiffs">
 <Implementation><![CDATA[	Do ##class(%File).RemoveDirectoryTree(##class(TECH.Files).AppendSubPath(##class(TECH.CSP.CSPApplicatie).Instance().Directory(), "testresults"))
 ]]></Implementation>
Index: Tools/Test/Manager.cls.xml
===================================================================
diff -u -r2121 -r2123
--- Tools/Test/Manager.cls.xml	(.../Manager.cls.xml)	(revision 2121)
+++ Tools/Test/Manager.cls.xml	(.../Manager.cls.xml)	(revision 2123)
@@ -560,6 +560,9 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>AantalDagen:%Integer=30</FormalSpec>
 <Implementation><![CDATA[
+	set DiffSaver = ##class(Tools.Test.DiffSaver).%New()
+	#dim FilePath As %String = DiffSaver.GetFilePath()
+	
 	#dim GlobalForLogging As %String = ..GetGlobalForLogging()	
 	#dim GlobalForTimings As %String = ..GetGlobalForTimings()	
 
@@ -569,11 +572,12 @@
 	
 	#dim idxLog As %String = ""
 	for  { set idxLog = $order(@GlobalForLogging@(idxLog)) quit:idxLog="" 
-		set RefDate = $get(@GlobalForLogging@(idxLog))
+		#dim RefDate As %Date = $get(@GlobalForLogging@(idxLog))
 		if $ListValid(RefDate) set RefDate = $listget(RefDate,1)
  		if RefDate <= Date {
  			kill @GlobalForLogging@(idxLog)
  			kill @GlobalForTimings@(idxLog)
+ 			Do ##class(%File).RemoveDirectoryTree(##class(TECH.Files).AppendSubPath(FilePath,..#TestType_"_"_idxLog))
  		}
 	}
  	Lock -@GlobalForLogging