Index: TECH/ClassName.cls.xml
===================================================================
diff -u -r1365 -r1836
--- TECH/ClassName.cls.xml	(.../ClassName.cls.xml)	(revision 1365)
+++ TECH/ClassName.cls.xml	(.../ClassName.cls.xml)	(revision 1836)
@@ -2,6 +2,18 @@
 <Export generator="Cache" version="24">
 <Class name="TECH.ClassName">
 <Super>TECH.String</Super>
+
+<Method name="IsValid">
+<ClassMethod>1</ClassMethod>
+<CodeMode>generator</CodeMode>
+<FormalSpec>%val:%CacheString</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>0</ServerOnly>
+<Implementation><![CDATA[
+	$$$GENERATE("	quit ($length(%val)>0 )  && ( ##class(%Dictionary.ClassDefinition).%ExistsId(%val) )")
+	quit $$$OK
+]]></Implementation>
+</Method>
 </Class>