Index: svn/Helper.cls.xml
===================================================================
diff -u -r1570 -r1572
--- svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1570)
+++ svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1572)
@@ -445,14 +445,7 @@
 <FormalSpec>InternalName</FormalSpec>
 <Implementation><![CDATA[
 	set Repository = ..GeefRepository(InternalName)
-	
-	if $isObject(Repository) {
-		do Repository.SVNExport(InternalName)
-	}
-	else {
-		write "Skipping : "_InternalName		
-	}
-	
+	if $isObject(Repository) do Repository.SVNExport(InternalName)
 	quit
 ]]></Implementation>
 </Method>
@@ -461,13 +454,7 @@
 <FormalSpec>InternalName</FormalSpec>
 <Implementation><![CDATA[
 	set Repository = ..GeefRepository(InternalName)
-	
-	if $isObject(Repository) {
-		do Repository.SVNDelete(InternalName)
-	}
-	else {
-		write "Skipping : "_InternalName		
-	}
+	if $isObject(Repository) do Repository.SVNDelete(InternalName)
 	quit
 ]]></Implementation>
 </Method>
@@ -581,7 +568,7 @@
 		if Repo.HasToBeSynchronized(InternalName) set RepoToUse = Repo
 	}
 	
-	if RepoToUse = "" W !!,"!!! Geen repository gevonden voor "_InternalName_" !!!!",!!
+	if RepoToUse = "" write !,"Skipping : "_InternalName
 	
 	
 	quit RepoToUse
Index: svn/StudioHook.cls.xml
===================================================================
diff -u -r1570 -r1572
--- svn/StudioHook.cls.xml	(.../StudioHook.cls.xml)	(revision 1570)
+++ svn/StudioHook.cls.xml	(.../StudioHook.cls.xml)	(revision 1572)
@@ -1039,8 +1039,8 @@
 <FormalSpec>InternalName:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	set ExternalName=..svnHelper.GeefRepository(InternalName).ExternalName(InternalName)
-	quit ##class(svn.SourceCodeInfo).Create(InternalName,ExternalName)
+	set Status = ..SourceCodeInfoUpdate(InternalName)
+	quit Status
 ]]></Implementation>
 </Method>
 
@@ -1051,14 +1051,28 @@
 	set Status = $$$OK
 	
 	if $IsObject(Object) {
-		set ExternalName=..svnHelper.GeefRepository(InternalName).ExternalName(InternalName)
-		Set Status = ##class(svn.SourceCodeInfo).Create(InternalName,ExternalName) 
+		Set Status = ..SourceCodeInfoUpdate(InternalName)
 	}
 	
 	quit Status
 ]]></Implementation>
 </Method>
 
+<Method name="SourceCodeInfoUpdate">
+<FormalSpec>InternalName:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	set Status = $$$OK
+	set Repo = ..svnHelper.GeefRepository(InternalName)
+	if $IsObject(Repo) {
+		set ExternalName=Repo.ExternalName(InternalName)
+		set Status = ##class(svn.SourceCodeInfo).Create(InternalName,ExternalName)
+	}
+	
+	quit Status
+]]></Implementation>
+</Method>
+
 <Method name="SubversionUpdateSourceControlCode">
 <Implementation><![CDATA[	do ##class(svn.Updater).Update()
 ]]></Implementation>
Index: svn/Repository/CSPRepository.cls.xml
===================================================================
diff -u -r1570 -r1572
--- svn/Repository/CSPRepository.cls.xml	(.../CSPRepository.cls.xml)	(revision 1570)
+++ svn/Repository/CSPRepository.cls.xml	(.../CSPRepository.cls.xml)	(revision 1572)
@@ -9,7 +9,9 @@
 
 <Method name="DeleteCode">
 <FormalSpec>InternalName</FormalSpec>
-<Implementation><![CDATA[	do ##class(%RoutineMgr).Delete(InternalName)
+<Implementation><![CDATA[
+	do ##class(%RoutineMgr).Delete(InternalName)
+	write !,"deleting "_InternalName,!
 ]]></Implementation>
 </Method>