--- a/ExceptionHandlerSet.st	Mon Apr 22 12:25:31 2002 +0200
+++ b/ExceptionHandlerSet.st	Thu May 02 10:46:02 2002 +0200
@@ -191,6 +191,13 @@
     "answer the handling exceptionHandlerSet from aContext."
 
     ^ self
+!
+
+isSignalOrSignalSet
+    "return true, if the receiver is either some kind of signal or a signalSet;
+     true returned here - the method is redefined from Object."
+
+    ^ true
 ! !
 
 !ExceptionHandlerSet methodsFor:'save evaluation'!
@@ -294,5 +301,5 @@
 !ExceptionHandlerSet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExceptionHandlerSet.st,v 1.8 2001-11-17 10:00:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExceptionHandlerSet.st,v 1.9 2002-05-02 08:46:02 cg Exp $'
 ! !

--- a/GenericException.st	Mon Apr 22 12:25:31 2002 +0200
+++ b/GenericException.st	Thu May 02 10:46:02 2002 +0200
@@ -482,6 +482,15 @@
     "Created: / 23.7.1999 / 13:49:59 / stefan"
 !
 
+isSignalOrSignalSet
+    "return true, if the receiver is either some kind of signal or a signalSet;
+     true returned here - the method is redefined from Object."
+
+    ^ true
+
+    "Created: / 23.7.1999 / 13:49:59 / stefan"
+!
+
 mayProceed
     "return true, if the exception handler is allowed to proceed
      the execution where the exception occured.
@@ -2260,6 +2269,6 @@
 !GenericException class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.64 2002-03-07 07:58:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.65 2002-05-02 08:45:44 cg Exp $'
 ! !
 GenericException initialize!