--- a/BlockContext.st	Tue Feb 15 15:33:34 1994 +0100
+++ b/BlockContext.st	Fri Feb 25 13:58:55 1994 +0100
@@ -26,9 +26,9 @@
 as for other contexts - this class has been added to avoid a flag in an instance variable.
 (has become necessary with cheap blocks, which have no home).
 
-Warning: layout and size known by compiler and runtime system - do not change.
+WARNING: layout and size known by compiler and runtime system - do not change.
 
-$Header: /cvs/stx/stx/libbasic/BlockContext.st,v 1.3 1993-10-13 00:14:46 claus Exp $
+$Header: /cvs/stx/stx/libbasic/BlockContext.st,v 1.4 1994-02-25 12:53:54 claus Exp $
 '!
 
 !BlockContext methodsFor:'accessing'!
@@ -85,13 +85,13 @@
 
 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