Index: svn/Repository/CodeRepository.cls.xml
===================================================================
diff -u -r1575 -r1582
--- svn/Repository/CodeRepository.cls.xml	(.../CodeRepository.cls.xml)	(revision 1575)
+++ svn/Repository/CodeRepository.cls.xml	(.../CodeRepository.cls.xml)	(revision 1582)
@@ -33,19 +33,21 @@
 <FormalSpec>InternalName:%String,FullPath:%Boolean=1</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	set InternalType = ##class(TECH.SourceCodeUtils).Type(InternalName)
+	#dim InternalType As %String = ##class(TECH.SourceCodeUtils).Type(InternalName)
 	
-	set tLen=$length(InternalName,".")
+	if InternalType'="other" {
+		set tLen=$length(InternalName,".")
+		set tPath = $piece(InternalName,".",1,tLen-1)
+		set tPath = $translate(tPath,".","\")
+		set tType=$zconvert($piece(InternalName,".",tLen),"L")
+		set tExternal = tPath_"."_tType
+		if InternalType = "routine" { set tExternal=tExternal_".rou" }
+		else { set tExternal=tExternal_".xml" }
+	}
+	else {
+		set tExternal = $translate(InternalName,".","\")
+	}
 	
-	set tPath = $piece(InternalName,".",1,tLen-1)
-	set tPath = $translate(tPath,".","\")
-
-	set tType=$zconvert($piece(InternalName,".",tLen),"L")
-	
-	set tExternal = tPath_"."_tType
-	if InternalType = "routine" { set tExternal=tExternal_".rou" }
-	else { set tExternal=tExternal_".xml" }
-	
 	if FullPath {
 		set tExternal=..WorkspacePath(..Branch)_tExternal
 	}