--- a/CheapBlock.st	Thu Nov 23 12:08:17 1995 +0100
+++ b/CheapBlock.st	Thu Nov 23 12:17:00 1995 +0100
@@ -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'!
@@ -33,10 +33,6 @@
 "
 !
 
-version
-    ^ '$Header: /cvs/stx/stx/libbasic/CheapBlock.st,v 1.8 1995-11-11 14:27:49 cg Exp $'
-!
-
 documentation
 "
     CheapBlocks are blocks which do not need their home-context
@@ -53,21 +49,25 @@
 
     NOTICE: layout known by runtime system and compiler - do not change
 "
+!
+
+version
+    ^ '$Header: /cvs/stx/stx/libbasic/CheapBlock.st,v 1.9 1995-11-23 11:16:21 cg Exp $'
 ! !
 
 !CheapBlock methodsFor:'accessing'!
 
-selfValue
-    "return the copied self"
-
-    ^ selfValue
-!
-
 method
     "return the receivers home method.
      Thats the method where the block was created."
 
     ^ method
+!
+
+selfValue
+    "return the copied self"
+
+    ^ selfValue
 ! !
 
 !CheapBlock methodsFor:'printing & storing'!