Index: svn/StudioHook.cls.xml
===================================================================
diff -u -r1652 -r1668
--- svn/StudioHook.cls.xml	(.../StudioHook.cls.xml)	(revision 1652)
+++ svn/StudioHook.cls.xml	(.../StudioHook.cls.xml)	(revision 1668)
@@ -11,7 +11,7 @@
 </Parameter>
 
 <Parameter name="VERSION">
-<Default>2.18</Default>
+<Default>2.20</Default>
 </Parameter>
 
 <Property name="Debug">
@@ -910,6 +910,8 @@
 		}
 		do Repo.SVNExport(InternalName)
 		
+		do ##class(Tools.Mock.MockCreator).%New().UpdateMock(##class(TECH.SourceCodeUtils).StripExtension(InternalName))
+		
 		If ..Debug Write !,"Method 'OnAfterSave' InternalName:"_InternalName_" Object: "_Object_" AddEnd"
 		
 	}	Catch (Exception){
@@ -1011,7 +1013,7 @@
 		set InternalName = ..svnHelper.NormalizeInternalName(InternalName)
 		do ..svnHelper.SVNExport(InternalName)
 	
-		do ##class(svn.InterfaceControleur).%New().Controleer($piece(InternalName,".",1,$length(InternalName,".")-1))
+		do ##class(svn.InterfaceControleur).%New().Controleer(##class(TECH.SourceCodeUtils).StripExtension(InternalName))
 		
 		if ##class(svn.Setting).MagUnitTestUitvoeren()  {
 			set UnitTestAnalyser = ##class(svn.UnitTestAnalyser).%New(##class(TECH.SourceCodeUtils).StripExtension(InternalName))