Index: svn/Helper.cls.xml
===================================================================
diff -u -r1739 -r1767
--- svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1739)
+++ svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1767)
@@ -329,14 +329,28 @@
 				if ##class(TECH.SourceCodeUtils).Exists(SourceCode) {
 					kill mdSources set mdSources(SourceCode)=""
 					do ..CompileList(.mdSources,Flags,.mdErrors)
-					if 'mdErrors do ##class(TECH.ListUtils).RemoveItemFromList(SourceCode,..ToCompile.List)
+					if 'mdErrors {
+						do ##class(TECH.ListUtils).RemoveItemFromList(SourceCode,..ToCompile.List)
+						if ##class(TECH.SourceCodeUtils).Type(SourceCode) = "class" {
+		 					do:##class(svn.Setting).MagUnitTestUitvoeren() ##class(svn.UnitTestAnalyser).%New(##class(TECH.SourceCodeUtils).StripExtension(SourceCode)).StoreUnitTestInfo()	
+						}	
+					}
 				} else {
 					do ##class(TECH.ListUtils).RemoveItemFromList(SourceCode,..ToCompile.List)	
 				}
 			}
 		} Else { 
 			do ..CompileList(.mdSources,Flags,.mdErrors)
-			if 'mdErrors do ..ToCompile.List.Clear()
+			if 'mdErrors {
+				set Iterator = ##class(TECH.ListIterator).%New(..ToCompile.List)
+				while Iterator.HasNext() {
+					set SourceCode = Iterator.Next()
+					if ##class(TECH.SourceCodeUtils).Type(SourceCode) = "class" {
+		 				do:##class(svn.Setting).MagUnitTestUitvoeren() ##class(svn.UnitTestAnalyser).%New(##class(TECH.SourceCodeUtils).StripExtension(SourceCode)).StoreUnitTestInfo()	
+					}	
+				}
+				do ..ToCompile.List.Clear()
+			}
 		}
 		do ..ToCompile.%Save()
 	}
@@ -463,7 +477,7 @@
  	}
  	
  	#define NoRecompile 0
- 	
+  	
  	do ..CompileImportedSourceCode($$$NoRecompile)
 ]]></Implementation>
 </Method>