--- a/BlockContext.st	Sat Jan 11 20:45:15 1997 +0100
+++ b/BlockContext.st	Sat Jan 11 23:59:10 1997 +0100
@@ -127,7 +127,8 @@
      got corrupted ... (i.e. avoid messageNotUnderstood here)"
 
     |cls who mHome m className sel 
-     sender selSender tryVars possibleBlocks method mWho|
+     sender selSender tryVars possibleBlocks method mWho
+     homeSel|
 
     (home isNil or:[home isContext not]) ifTrue:[
         "
@@ -187,7 +188,8 @@
     "
      kludge to avoid slow search for containing class
     "
-    mHome selector == #doIt ifTrue:[
+    ((homeSel := mHome selector) == #doIt
+    or:[homeSel == #doIt:]) ifTrue:[
         sel := #doIt.
         cls := mHome receiver class.
     ] ifFalse:[
@@ -202,7 +204,7 @@
         ] ifFalse:[
             cls := receiver class.
         ].
-        sel := mHome selector printString.
+        sel := homeSel printString.
     ].
 
     cls isNil ifTrue:[
@@ -217,11 +219,11 @@
     ].
     ^ '[] in ' , className , '-' , sel
 
-    "Modified: 10.1.1997 / 17:28:36 / cg"
+    "Modified: 10.1.1997 / 21:26:21 / cg"
 ! !
 
 !BlockContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/BlockContext.st,v 1.25 1997-01-10 16:29:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/BlockContext.st,v 1.26 1997-01-11 22:58:58 cg Exp $'
 ! !