--- a/Signal.st	Tue Aug 28 11:31:21 2018 +0200
+++ b/Signal.st	Tue Aug 28 11:33:07 2018 +0200
@@ -484,17 +484,20 @@
     "return true, if the receiver handles the argument, anException.
      (i.e. the receiver is anExceptions signal or a parent of it)"
 
-    |signal|
-
-    signal := anException creator.
+    ^ self accepts:(anException creator)
+"/    |signal|
+"/
+"/    signal := anException creator.
+"/
+"/    self == signal ifTrue:[^ true].               "quick check"
+"/    anException isNotification ifTrue:[^ false].  "speed up queries by not traversing the parent chain"
+"/
+"/    [(signal := signal parent) notNil] whileTrue:[
+"/        self == signal ifTrue:[^ true].
+"/    ].
+"/    ^ false
 
-    self == signal ifTrue:[^ true].               "quick check"
-    anException isNotification ifTrue:[^ false].  "speed up queries by not traversing the parent chain"
-
-    [(signal := signal parent) notNil] whileTrue:[
-	self == signal ifTrue:[^ true].
-    ].
-    ^ false
+    "Modified: / 28-08-2018 / 11:32:23 / Claus Gittinger"
 !
 
 inheritsFrom:anotherSignal