Index: svn/Repository.cls.xml
===================================================================
diff -u -r1854 -r1856
--- svn/Repository.cls.xml	(.../Repository.cls.xml)	(revision 1854)
+++ svn/Repository.cls.xml	(.../Repository.cls.xml)	(revision 1856)
@@ -383,9 +383,10 @@
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	#dim Result As %Boolean = ##class(TECH.StringUtils).StartsWith(InternalName,"vhUnitTest")
-	if 'Result set Result = ##class(TECH.StringUtils).StartsWith(InternalName,"vhTest")
-	quit Result
+	Quit:(##class(TECH.StringUtils).StartsWith(InternalName,"vhTest.Utils.DOM.PM.Maatwerk.Calc.Common")) $$$False
+	Quit:(##class(TECH.StringUtils).StartsWith(InternalName,"vhUnitTest")) $$$True
+	Quit:(##class(TECH.StringUtils).StartsWith(InternalName,"vhTest")) $$$True
+	Quit $$$False
 ]]></Implementation>
 </Method>