--- a/BlockContext.st	Wed Feb 08 04:10:51 1995 +0100
+++ b/BlockContext.st	Wed Feb 08 04:11:17 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/BlockContext.st,v 1.10 1995-02-02 12:20:35 claus Exp $
+$Header: /cvs/stx/stx/libbasic/BlockContext.st,v 1.11 1995-02-08 03:10:57 claus Exp $
 '!
 
 !BlockContext class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/BlockContext.st,v 1.10 1995-02-02 12:20:35 claus Exp $
+$Header: /cvs/stx/stx/libbasic/BlockContext.st,v 1.11 1995-02-08 03:10:57 claus Exp $
 "
 !
 
@@ -118,6 +118,8 @@
 !BlockContext methodsFor:'printing & storing'!
 
 receiverPrintString
+    |cls who|
+
     home isNil ifTrue:[
 	^ '[] optimized'
     ].
@@ -127,8 +129,16 @@
 	"receiverClassName := home selfValue class name."
 	^ '[] optimized'
     ].
-
-    ^ '[] in ' , receiver class name , '-' , self methodHome selector printString
+"/ old:
+"/    cls := receiver class.
+"/ new:
+    who := self methodHome method who.
+    who notNil ifTrue:[
+	cls := who at:1
+    ] ifFalse:[
+	cls := receiver class.
+    ].
+    ^ '[] in ' , cls name , '-' , self methodHome selector printString
 !
 
 printReceiver