Index: svn/StudioHook.cls.xml
===================================================================
diff -u -r1592 -r1600
--- svn/StudioHook.cls.xml	(.../StudioHook.cls.xml)	(revision 1592)
+++ svn/StudioHook.cls.xml	(.../StudioHook.cls.xml)	(revision 1600)
@@ -840,22 +840,25 @@
 <Implementation><![CDATA[
 	
 	Try {
-		#dim tCmd as svn.Command
 		if ..Debug Write !,"Method 'OnAfterSave' InternalName:"_InternalName_" Object: "_Object
-		if ##class(TECH.SourceCodeUtils).Type(InternalName)="project" {
-			set ..ProjectNameOriginal=$p(InternalName,".",1)
-			//set ..ProjectNameModified=$tr($p(InternalName,".",1)," ","_")
-			set ..ProjectNameModified = ..svnHelper.ExternalName(InternalName,$$$FULLPATH)
+		#dim tCmd as svn.Command
+		
+		#dim Repo As svn.Repository = ..svnHelper.GeefRepository(InternalName)
+		if $IsObject(Repo) {
+			if ##class(TECH.SourceCodeUtils).Type(InternalName)="project" {
+				set ..ProjectNameOriginal=$piece(InternalName,".",1)
+				set ..ProjectNameModified = Repo.ExternalName(InternalName,$$$FULLPATH)
+			}
 		}
-		// see if the file exists in working folder, if not, it's a NEW file => add into repository
-		do ..svnHelper.SVNExport(InternalName)
+		do Repo.SVNExport(InternalName)
 		
 		If ..Debug Write !,"Method 'OnAfterSave' InternalName:"_InternalName_" Object: "_Object_" AddEnd"
 		
-	}Catch (Exception){
-		w !," *** Kutac : error OnAfterSave"
-		w !,"           "_Exception.DisplayString()	
+	}	Catch (Exception){
+			w !," *** Kutac : error OnAfterSave"
+			w !,"           "_Exception.DisplayString()	
 	}
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>