--- a/Signal.st	Fri Sep 03 14:57:19 1999 +0200
+++ b/Signal.st	Sat Sep 04 12:08:46 1999 +0200
@@ -404,29 +404,14 @@
      Raising an unhandled signal will usually lead into the debugger,
      but can be caught globally by setting Exceptions EmergencyHandler."
 
-    ^ self isHandledIn:(thisContext sender).
+    ^ GenericException exception:self isHandledIn:(thisContext sender).
 !
 
 isHandledIn:aContext
     "return true, if there is a handler for the receiver signal in the 
      contextChain starting with aContext."
 
-    |con r|
-
-    con := Context findFirstSpecialHandle:true raise:false.
-    [con notNil] whileTrue:[
-        ((r := con receiver) notNil
-         and:[(r handlerForSignal:self context:con originator:nil) notNil]
-        ) ifTrue:[
-            "found a handler context"
-            ^ true
-        ].
-        con := con findSpecialHandle:true raise:false.
-    ].
-    ^ false
-
-    "Created: / 23.7.1999 / 14:03:34 / stefan"
-    "Modified: / 26.7.1999 / 15:24:34 / stefan"
+    ^ GenericException exception:self isHandledIn:aContext
 !
 
 isQuerySignal
@@ -757,5 +742,5 @@
 !Signal class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.73 1999-08-23 11:57:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.74 1999-09-04 10:08:46 cg Exp $'
 ! !