--- a/Signal.st	Tue Jan 28 00:40:23 1997 +0100
+++ b/Signal.st	Tue Jan 28 01:01:36 1997 +0100
@@ -279,7 +279,7 @@
      Otherwise, the errorString is returned.
      If no errorString is given, use the signals default notifierString."
 
-    |t pS|
+    |t|
 
     errorString isNil ifTrue:[
         t := notifierString
@@ -342,11 +342,11 @@
     "return true, if there is a handler for the receiver signal in the 
      contextChain starting with aContext."
 
-    |con sel|
+    |con|
 
     con := aContext.
     [con notNil] whileTrue:[
-        con := con findContextWithSelector:#'handle:do:' or:#'handle:from:do:'.
+        con := con findNextContextWithSelector:#'handle:do:' or:#'handle:from:do:'.
         con notNil ifTrue:[
             "
              is this is a #handle:do: or a #handle:from:do: context
@@ -356,8 +356,7 @@
                 "found a handler context"
 
                 ^ true
-            ].
-            con := con sender
+            ]
         ]
     ].
     ^ false
@@ -694,6 +693,6 @@
 !Signal class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.39 1997-01-20 11:49:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.40 1997-01-28 00:01:20 cg Exp $'
 ! !
 Signal initialize!