Index: svn/Repository/CSPRepository.cls.xml
===================================================================
diff -u -r1726 -r1866
--- svn/Repository/CSPRepository.cls.xml	(.../CSPRepository.cls.xml)	(revision 1726)
+++ svn/Repository/CSPRepository.cls.xml	(.../CSPRepository.cls.xml)	(revision 1866)
@@ -58,11 +58,11 @@
 <Implementation><![CDATA[
 	#define UCase(%s) $zconvert(%s,"U")
 	
-	set InternalName = ""
-	set LocalWorkSpacePath = ..WorkspacePath(..Branch)
-	set RootName = $extract(ExternalName,1,$length(LocalWorkSpacePath))
+	#dim InternalName As %String = ""
+	#dim LocalWorkSpacePath As %String = ..WorkspacePath(..Branch)
+	#dim RootName As %String = $extract(ExternalName,1,$length(LocalWorkSpacePath))
 	if $zconvert(LocalWorkSpacePath,"l")=$zconvert(RootName,"l") {
-		set Applicatie = $translate(..Application,"/","\")
+		#dim Applicatie As %String = $translate(..Application,"/","\")
 		set Applicatie = ##class(TECH.Files).AppendFile(Applicatie,$piece(RootName,Applicatie,2))
 		set InternalName = ##class(TECH.Files).AppendFile(Applicatie,$extract(ExternalName,$length(RootName)+1,$length(ExternalName)))
 		set InternalName = $translate(InternalName,"\","/")
@@ -75,9 +75,9 @@
 <FormalSpec>InternalName:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	set ExternalName = ..ExternalName(InternalName)
+	#dim ExternalName As %String = ..ExternalName(InternalName)
 	
-	set SVNFile = ..GetSVNAddFilename(ExternalName)
+	#dim SVNFile As %String = ..GetSVNAddFilename(ExternalName)
 		
 	do ..Export(.ExternalName,InternalName)
 		
@@ -92,8 +92,6 @@
 	
 	do ##class(svn.SourceCodeInfo).Update(InternalName,ExternalName)
 	
-	
-	
 	quit
 ]]></Implementation>
 </Method>