--- a/Context.st	Thu Aug 28 04:44:08 1997 +0200
+++ b/Context.st	Tue Sep 02 19:40:57 1997 +0200
@@ -573,7 +573,7 @@
 
 !Context methodsFor:'exception support'!
 
-findNextContextWithSelector:selector1 or:selector2
+findNextContextWithSelector:selector1 or:selector2 or:selector3
     "walk along the sender chain (starting with the sender), 
      for a context with either one of the given selectors.
      This non-standard interface is only to be used by exception"
@@ -615,7 +615,8 @@
 	}
 
 	if ((sel == selector1)
-	 || ((selector2 != nil) && (sel == selector2))) {
+	 || ((selector2 != nil) && (sel == selector2))
+	 || ((selector3 != nil) && (sel == selector3))) {
 	    if (__isLazy(theContext)) {
 		__PATCHUPCONTEXT(theContext);
 	    }
@@ -1404,7 +1405,7 @@
 
     count := 0.
 
-    c := self findNextContextWithSelector:selector or:nil.
+    c := self findNextContextWithSelector:selector or:nil or:nil.
     [c notNil] whileTrue:[
         (c receiver == receiver) ifTrue:[
             "
@@ -1418,7 +1419,7 @@
                 ^ true
             ]
         ].
-        c := c findNextContextWithSelector:selector or:nil.
+        c := c findNextContextWithSelector:selector or:nil or:nil.
 
         "
          this special test was added to get out after a while
@@ -1439,6 +1440,6 @@
 !Context class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.79 1997-05-13 14:35:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.80 1997-09-02 17:40:57 cg Exp $'
 ! !
 Context initialize!