--- a/Block.st	Tue Apr 16 11:27:03 1996 +0200
+++ b/Block.st	Tue Apr 16 11:27:45 1996 +0200
@@ -11,10 +11,10 @@
 "
 
 CompiledCode subclass:#Block
-	 instanceVariableNames:'home nargs sourcePos initialPC'
-	 classVariableNames:'InvalidNewSignal'
-	 poolDictionaries:''
-	 category:'Kernel-Methods'
+	instanceVariableNames:'home nargs sourcePos initialPC'
+	classVariableNames:'InvalidNewSignal'
+	poolDictionaries:''
+	category:'Kernel-Methods'
 !
 
 !Block class methodsFor:'documentation'!
@@ -78,10 +78,6 @@
 
     NOTICE: layout known by runtime system and compiler - do not change
 "
-!
-
-version
-    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.47 1996-04-02 21:59:04 cg Exp $'
 ! !
 
 !Block class methodsFor:'initialization'!
@@ -131,7 +127,9 @@
 isBuiltInClass
     "this class is known by the run-time-system"
 
-    ^ true
+    ^ self == Block
+
+    "Modified: 16.4.1996 / 11:25:30 / cg"
 ! !
 
 !Block methodsFor:'STV compatibility'!
@@ -1032,4 +1030,9 @@
     ^ self value        "the real logic is in Context>>unwind"
 ! !
 
+!Block class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.48 1996-04-16 09:27:33 cg Exp $'
+! !
 Block initialize!

--- a/CheapBlk.st	Tue Apr 16 11:27:03 1996 +0200
+++ b/CheapBlk.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/Attic/CheapBlk.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/Attic/CheapBlk.st,v 1.11 1996-04-16 09:27:45 cg Exp $'
+! !

--- 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 $'
+! !