--- a/SignalSet.st	Mon Jul 15 11:42:29 2002 +0200
+++ b/SignalSet.st	Mon Jul 15 11:45:45 2002 +0200
@@ -150,14 +150,14 @@
      The special any-Set includes every (non-query) signal."
 
     (self == SetOfAnySignal) ifTrue:[
-	^ (aSignal isSignal and:[aSignal isQuerySignal not])
+        ^ (aSignal isExceptionCreator and:[aSignal isQuerySignal not])
     ].
     ^ super includes:aSignal
 !
 
-isSignalOrSignalSet
-    "return true, if the receiver is either some kind of signal or a signalSet;
-     true returned here - the method is redefined from Object."
+isExceptionHandler
+    "return true, if the receiver responds to the exception handler protocol,
+     especially to the #accepts: and #handles: messages"
 
     ^ true
 ! !
@@ -303,5 +303,5 @@
 !SignalSet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SignalSet.st,v 1.37 2002-05-02 09:18:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SignalSet.st,v 1.38 2002-07-15 09:45:45 stefan Exp $'
 ! !