--- a/BlockContext.st	Fri Oct 28 02:16:28 1994 +0100
+++ b/BlockContext.st	Fri Oct 28 02:19:22 1994 +0100
@@ -1,6 +1,6 @@
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
-              All Rights Reserved
+	      All Rights Reserved
 
  This software is furnished under a license and may be used
  only in accordance with the terms of that license and with the
@@ -19,9 +19,9 @@
 
 BlockContext comment:'
 COPYRIGHT (c) 1993 by Claus Gittinger
-              All Rights Reserved
+	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/BlockContext.st,v 1.8 1994-10-10 00:19:46 claus Exp $
+$Header: /cvs/stx/stx/libbasic/BlockContext.st,v 1.9 1994-10-28 01:19:07 claus Exp $
 '!
 
 !BlockContext class methodsFor:'documentation'!
@@ -29,7 +29,7 @@
 copyright
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
-              All Rights Reserved
+	      All Rights Reserved
 
  This software is furnished under a license and may be used
  only in accordance with the terms of that license and with the
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/BlockContext.st,v 1.8 1994-10-10 00:19:46 claus Exp $
+$Header: /cvs/stx/stx/libbasic/BlockContext.st,v 1.9 1994-10-28 01:19:07 claus Exp $
 "
 !
 
@@ -54,7 +54,7 @@
     (has become necessary with cheap blocks, which have no home).
 
     WARNING: layout and size known by compiler and runtime system - 
-             do not change.
+	     do not change.
 "
 ! !
 
@@ -77,8 +77,8 @@
     con := self.
     h := home.
     [h notNil] whileTrue:[
-        con := h.
-        h := con home
+	con := h.
+	h := con home
     ].
     ^ con
 !
@@ -112,22 +112,26 @@
 
 receiverPrintString
     home isNil ifTrue:[
-        ^ '[] optimized'
+	^ '[] optimized'
     ].
     home isContext ifFalse:[
-        "a copying block"
+	"a copying block"
 
-        "receiverClassName := home selfValue class name."
-        ^ '[] optimized'
+	"receiverClassName := home selfValue class name."
+	^ '[] optimized'
     ].
 
     ^ '[] in ' , receiver class name , '-' , self methodHome selector printString
 !
 
 printReceiver
+    "print the contexts receiver on the standard output"
+
     self receiverPrintString print
 !
     
 printString
+    "return a string describing the context" 
+
     ^ self receiverPrintString , ' ' , self selector printString
 ! !