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>