--- a/SignalSet.st	Thu May 02 11:17:55 2002 +0200
+++ b/SignalSet.st	Thu May 02 11:18:55 2002 +0200
@@ -153,6 +153,13 @@
 	^ (aSignal isSignal 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."
+
+    ^ true
 ! !
 
 !SignalSet methodsFor:'save evaluation'!
@@ -296,5 +303,5 @@
 !SignalSet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SignalSet.st,v 1.36 2002-03-01 13:44:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SignalSet.st,v 1.37 2002-05-02 09:18:46 cg Exp $'
 ! !