Index: svn/Repository/CodeRepository.cls.xml
===================================================================
diff -u -r1582 -r1607
--- svn/Repository/CodeRepository.cls.xml	(.../CodeRepository.cls.xml)	(revision 1582)
+++ svn/Repository/CodeRepository.cls.xml	(.../CodeRepository.cls.xml)	(revision 1607)
@@ -60,8 +60,8 @@
 <FormalSpec>InternalName:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	set ExternalName = ..ExternalName(InternalName)
-	set SVNFile = ..GetSVNAddFilename(ExternalName)
+	#dim ExternalName As %String = ..ExternalName(InternalName)
+	#dim SVNFile As %String = ..GetSVNAddFilename(ExternalName)
 		
 	do ..Export(.ExternalName,InternalName)
 		
@@ -172,8 +172,9 @@
 <FormalSpec>ExternalName:%String,InternalName:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set Extension=..GeefExtentie(InternalName)
+	#dim Status As %Status = $$$OK
 	
+	#dim Extension As %String =..GeefExtentie(InternalName)
 	if ".mac.inc.bas.mvb.mvi." [ Extension { 
 		set Status = ..ExportRoutine(.ExternalName,InternalName) 
 	} 
@@ -193,13 +194,13 @@
 	set ExternalName = $get(ExternalName)
 	if '$length(ExternalName) set ExternalName = ..ExternalName(InternalName)
 
-	set ExtDirectory = ##class(%File).GetDirectory(ExternalName)
+	#dim ExtDirectory As %String = ##class(%File).GetDirectory(ExternalName)
 	do ##class(%File).CreateDirectoryChain(ExtDirectory)
 
-	set Flags= "/diffexport/display=none"
+	#dim Flags As %String = "/diffexport/display=none"
 	if (##class(TECH.SourceCodeUtils).Type(InternalName)="class") {
-		set PackageName = $piece(InternalName,".",1,$length(InternalName,".")-2)_".pkg"
-		set Status=$system.OBJ.Export(PackageName_","_InternalName,ExternalName,Flags)
+		#dim PackageName As %String = $piece(InternalName,".",1,$length(InternalName,".")-2)_".pkg"
+		#dim Status As %Status = $system.OBJ.Export(PackageName_","_InternalName,ExternalName,Flags)
 	} else {
 		set Status=$system.OBJ.Export(InternalName,ExternalName,Flags)	
 	}
@@ -213,7 +214,7 @@
 	
 	do Stream.Rewind()
 	while 'Stream.AtEnd {
-		set Line = Stream.ReadLine()
+		#dim Line As %String = Stream.ReadLine()
 		continue:$$$StartsWith(Line,"<TimeChanged>")&&(Line["</TimeChanged>")
 		continue:$$$StartsWith(Line,"<TimeCreated>")&&(Line["</TimeCreated>")
 		continue:$$$StartsWith(Line,"<Checksum value=")
@@ -233,24 +234,27 @@
 <FormalSpec><![CDATA[&ExternalName:%String,InternalName:%String,iFlags:%String=""]]></FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set Status=$$$OK
+	#dim Status As %Status = $$$OK
 	If '##class(%RoutineMgr).Exists(InternalName) set Status=$system.Status.Error(5018,InternalName)
 	
 	set ExternalName = $get(ExternalName)
 	if '$length(ExternalName) set ExternalName = ..ExternalName(InternalName)
 	
-	set RoutineObj=##class(%RoutineMgr).%OpenId(InternalName)
-	set strRoutine=RoutineObj.Code
+	set RoutineObj = ##class(%RoutineMgr).%OpenId(InternalName)
+	#dim strRoutine As %Stream = RoutineObj.Code
 	
-	set ExtDirectory = ##class(%File).GetDirectory(ExternalName)
+	#dim ExtDirectory As %String = ##class(%File).GetDirectory(ExternalName)
 	do ##class(%File).CreateDirectoryChain(ExtDirectory)
 
 	set File=##class(%FileCharacterStream).%New()
-	set File.Filename=ExternalName
+	set File.Filename = ExternalName
+	#dim Line As %String = ""
 	while 'strRoutine.AtEnd {
-		do File.WriteLine(strRoutine.ReadLine())
+		set Line = strRoutine.ReadLine()
+		continue:(strRoutine.AtEnd)
+		do File.WriteLine(Line)
+		
 	}
-	
 	set Status=File.SaveStream()
 	quit Status
 ]]></Implementation>