--- a/Context.st	Sat Dec 11 01:42:02 1993 +0100
+++ b/Context.st	Sat Dec 11 01:46:55 1993 +0100
@@ -33,7 +33,7 @@
 
 Warning: layout and size known by the compiler and runtime system - do not change.
 
-$Header: /cvs/stx/stx/libbasic/Context.st,v 1.5 1993-11-08 02:29:53 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Context.st,v 1.6 1993-12-11 00:45:34 claus Exp $
 '!
 
 !Context class methodsFor:'queries'!
@@ -271,6 +271,10 @@
     ^ self receiverPrintString , ' ' , self selector printString
 !
 
+displayString
+    ^ self class name , '(' , self receiverPrintString , ' ' , self selector printString, ')'
+!
+
 printOn:aStream
     aStream nextPutAll:(self receiverPrintString).
     aStream space.
@@ -415,7 +419,7 @@
     [con ~~ self] whileTrue:[
         con isBlockContext ifFalse:[
             "the way we find those unwind contexts seems kludgy ..."
-	    sel := con selector.
+            sel := con selector.
             ((sel == #valueNowOrOnUnwindDo:) or:[sel == #valueOnUnwindDo:]) ifTrue:[
                 "... the way we evaluate the unwind blocks too"
                 (con argAt:1) value