Index: TECH/SourceCodeUtils.cls.xml
===================================================================
diff -u -r697 -r2164
--- TECH/SourceCodeUtils.cls.xml	(.../SourceCodeUtils.cls.xml)	(revision 697)
+++ TECH/SourceCodeUtils.cls.xml	(.../SourceCodeUtils.cls.xml)	(revision 2164)
@@ -143,13 +143,9 @@
 <FormalSpec>InternalName:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	set SQLTableName = ""
-	if ..Exists(InternalName) {
-		set Type = ..Type(InternalName) 
-		if Type = "class" {
-			set Class = ##class(%Dictionary.CompiledClass).%OpenId(..StripExtension(InternalName))
-			if $isObject(Class) Set SQLTableName = (Class.SqlQualifiedNameQ)
-		}
+	#dim SQLTableName As TECH.String = ""
+	if (..Exists(InternalName)) {
+		set:(..Type(InternalName) = "class") SQLTableName = ##class(TECH.CompiledClassUtils).GetSQLTableName(..StripExtension(InternalName))
 	}
 		
 	quit SQLTableName
Index: TECH/CompiledClassUtils.cls.xml
===================================================================
diff -u -r1856 -r2164
--- TECH/CompiledClassUtils.cls.xml	(.../CompiledClassUtils.cls.xml)	(revision 1856)
+++ TECH/CompiledClassUtils.cls.xml	(.../CompiledClassUtils.cls.xml)	(revision 2164)
@@ -9,7 +9,7 @@
 <ReturnType>%TimeStamp</ReturnType>
 <Implementation><![CDATA[
 	#dim CompiledTimeStamp As %TimeStamp = ##class(TECH.DateTime).HorologToTimeStamp($get(^oddCOM(ClassName,63)))
-	quit CompiledTimeStamp
+	Quit CompiledTimeStamp
 ]]></Implementation>
 </Method>
 
@@ -20,6 +20,20 @@
 <Implementation><![CDATA[	Quit ##class(%Dictionary.CompiledClass).%ExistsId(ClassName)
 ]]></Implementation>
 </Method>
+
+<Method name="GetSQLTableName">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ClassName:TECH.String</FormalSpec>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim Class As %Dictionary.CompiledClass= ##class(%Dictionary.CompiledClass).%OpenId(ClassName)
+	#dim SQLTableName As TECH.String = ""
+	
+	Set:($isObject(Class)) SQLTableName = Class.SqlQualifiedNameQ
+	
+	Quit SQLTableName
+]]></Implementation>
+</Method>
 </Class>