Index: svn/Repository/CodeRepository.cls.xml
===================================================================
diff -u -r1570 -r1571
--- svn/Repository/CodeRepository.cls.xml	(.../CodeRepository.cls.xml)	(revision 1570)
+++ svn/Repository/CodeRepository.cls.xml	(.../CodeRepository.cls.xml)	(revision 1571)
@@ -169,6 +169,7 @@
 
 <Method name="Export">
 <FormalSpec>ExternalName:%String,InternalName:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set Extension=..GeefExtentie(InternalName)
 	
@@ -178,7 +179,7 @@
 	else { 
 		set Status = ..ExportNonRoutine(.ExternalName,InternalName) 
 	}
-	Quit $$$OK
+	Quit Status
 ]]></Implementation>
 </Method>
 
Index: svn/Repository.cls.xml
===================================================================
diff -u -r1570 -r1571
--- svn/Repository.cls.xml	(.../Repository.cls.xml)	(revision 1570)
+++ svn/Repository.cls.xml	(.../Repository.cls.xml)	(revision 1571)
@@ -246,6 +246,11 @@
 <ReturnType>%Status</ReturnType>
 </Method>
 
+<Method name="Export">
+<FormalSpec>InternalName:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+</Method>
+
 <Method name="GetSVNAddFilename">
 <FormalSpec>iPath:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
@@ -313,6 +318,59 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ExportToTemporaryFile">
+<FormalSpec>InternalName:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	set TempFile = ##class(TECH.File).GetTempDir()_"/Cache_"_$Job_"/"
+	Set TempFile=##class(%Library.File).NormalizeDirectory(TempFile)
+	set TempFile = TempFile _ ..ExternalName(InternalName,$$$NOPATH)
+	
+	set Directory = ##class(%File).GetDirectory(TempFile)
+	If '##class(%File).DirectoryExists(Directory) {
+		do ##class(%File).CreateDirectoryChain(Directory)
+	}
+	
+	do ..Export(TempFile,InternalName)
+	
+	Quit TempFile
+]]></Implementation>
+</Method>
+
+<Method name="Hash">
+<FormalSpec><![CDATA[InternalName:%String,&ExternalName:%String="",&oStatus]]></FormalSpec>
+<Implementation><![CDATA[
+	set flagIsTempFile = 0
+	set oStatus = $$$OK
+	if '$length(ExternalName) {
+	  set flagIsTempFile = 1
+	  set ExternalName=..ExportToTemporaryFile(InternalName)
+	}
+	
+	set Stream=##class(%FileBinaryStream).%New()
+	set Stream.Filename=ExternalName
+	do Stream.Rewind()
+	
+	#if ($system.Version.GetMajor()=5)
+		set Hash=""
+		set ctr32KBlocks=0
+		while 'Stream.AtEnd {
+			set ctr32KBlocks=$increment(ctr32KBlocks)
+			set Hash = Hash_$system.Encryption.MD5Encode(Stream.Read())	
+		}
+		if ctr32KBlocks>1 set Hash=$system.Encryption.MD5Encode(Hash)	
+	#else 
+		Set Hash=$system.Encryption.SHA1HashStream(Stream)
+	#endif
+
+	if flagIsTempFile {
+		do ##class(%File).Delete(ExternalName)	
+	}
+		
+	quit Hash
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^svn.RepositoryD</DataLocation>
Index: svn/SourceCodeInfo.cls.xml
===================================================================
diff -u -r1570 -r1571
--- svn/SourceCodeInfo.cls.xml	(.../SourceCodeInfo.cls.xml)	(revision 1570)
+++ svn/SourceCodeInfo.cls.xml	(.../SourceCodeInfo.cls.xml)	(revision 1571)
@@ -96,12 +96,14 @@
 <Implementation><![CDATA[
 	 set $piece(InternalName,".",$length(InternalName,"."))=$zconvert($piece(InternalName,".",$length(InternalName,".")),"L")
 	 
-	 
 	 set Helper = ##class(svn.Helper).%New()
 	 set File = ..Open(InternalName)
 	 set File.DateModified = ##class(%File).GetFileDateModified(ExternalName)
-	 set File.InternalHash = Helper.GeefRepository(InternalName).Hash(InternalName)
-	 set File.ExternalHash = Helper.GeefRepository(InternalName).Hash(,ExternalName)
+	 set Repo = Helper.GeefRepository(InternalName)
+	 if $IsObject(Repo) {
+	 	set File.InternalHash = Repo.Hash(InternalName)
+	 	set File.ExternalHash = Repo.Hash(,ExternalName)
+	 }
 	 set Updated = File.%Save()
 	 
 	 quit Updated