Index: TECH/ClassInfo/ClassDefinition.cls.xml
===================================================================
diff -u -r1133 -r1518
--- TECH/ClassInfo/ClassDefinition.cls.xml	(.../ClassDefinition.cls.xml)	(revision 1133)
+++ TECH/ClassInfo/ClassDefinition.cls.xml	(.../ClassDefinition.cls.xml)	(revision 1518)
@@ -26,6 +26,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsPersistent">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit "%Persistent" [ ..ClassDefinition.Super
+]]></Implementation>
+</Method>
+
 <Method name="GeefNaam">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ..ClassDefinition.Name