--- a/CheapBlock.st	Tue Apr 16 11:27:03 1996 +0200
+++ b/CheapBlock.st	Tue Apr 16 11:27:45 1996 +0200
@@ -11,10 +11,10 @@
 "
 
 Block subclass:#CheapBlock
-	 instanceVariableNames:'selfValue method'
-	 classVariableNames:''
-	 poolDictionaries:''
-	 category:'Kernel-Methods'
+	instanceVariableNames:'selfValue method'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Kernel-Methods'
 !
 
 !CheapBlock class methodsFor:'documentation'!
@@ -49,10 +49,16 @@
 
     NOTICE: layout known by runtime system and compiler - do not change
 "
-!
+! !
+
+!CheapBlock class methodsFor:'queries'!
 
-version
-    ^ '$Header: /cvs/stx/stx/libbasic/CheapBlock.st,v 1.10 1996-02-01 19:44:13 cg Exp $'
+isBuiltInClass
+    "this class is known by the run-time-system"
+
+    ^ self == CheapBlock
+
+    "Created: 16.4.1996 / 11:25:23 / cg"
 ! !
 
 !CheapBlock methodsFor:'accessing'!
@@ -101,3 +107,9 @@
     aStream nextPutAll:' ??? (optimized)'.
     ^ self
 ! !
+
+!CheapBlock class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libbasic/CheapBlock.st,v 1.11 1996-04-16 09:27:45 cg Exp $'
+! !