Index: svn/StudioHook.cls.xml
===================================================================
diff -u -r1795 -r1804
--- svn/StudioHook.cls.xml	(.../StudioHook.cls.xml)	(revision 1795)
+++ svn/StudioHook.cls.xml	(.../StudioHook.cls.xml)	(revision 1804)
@@ -794,7 +794,7 @@
 	if UnitTests.Count() {
 		if UnitTests.Count() > 5 {
 			write !,"Unittests voor "_InternalName_" : "
-			write !,##class(TECH.ListUtils).ListToPieces(UnitTests,$char(13,10))
+			write !,##class(TECH.ListUtils).ListToPieces(UnitTests,".cls"_$char(13,10))_".cls"
 		} else {
 			set itUnitTests = ##class(TECH.ListIterator).%New(UnitTests)
 			while itUnitTests.HasNext() {