--- a/ClassDescr.st	Sun Apr 14 01:10:54 1996 +0200
+++ b/ClassDescr.st	Mon Apr 15 17:41:28 1996 +0200
@@ -71,6 +71,14 @@
     ^ newClass
 ! !
 
+!ClassDescription class methodsFor:'queries'!
+
+isBuiltInClass
+    ^ self == ClassDescription class or:[self == ClassDescription]
+
+    "Created: 15.4.1996 / 17:16:59 / cg"
+! !
+
 !ClassDescription methodsFor:'accessing'!
 
 allInstVarNames
@@ -359,5 +367,5 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ClassDescr.st,v 1.24 1996-03-08 11:39:28 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ClassDescr.st,v 1.25 1996-04-15 15:41:08 cg Exp $'
 ! !