--- a/SignalSet.st	Sat Sep 02 18:08:30 1995 +0200
+++ b/SignalSet.st	Sun Sep 03 17:06:58 1995 +0200
@@ -17,13 +17,6 @@
 	 category:'Kernel-Exceptions'
 !
 
-SignalSet comment:'
-COPYRIGHT (c) 1993 by Claus Gittinger
-	      All Rights Reserved
-
-$Header: /cvs/stx/stx/libbasic/SignalSet.st,v 1.13 1995-08-11 03:03:46 claus Exp $
-'!
-
 !SignalSet class methodsFor:'documentation'!
 
 copyright
@@ -42,7 +35,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/SignalSet.st,v 1.13 1995-08-11 03:03:46 claus Exp $
+$Header: /cvs/stx/stx/libbasic/SignalSet.st,v 1.14 1995-09-03 15:06:23 claus Exp $
 "
 !
 
@@ -157,19 +150,19 @@
 accepts:aSignal
     "return true, if the receiver accepts the argument, aSignal.
      (i.e. if any of the receivers elements is aSignal or a parent of it).
-     False otherwise. he special anySet accepts any signal."
+     False otherwise. The special anySet accepts any (non-query) signal."
 
-    (self == SetOfAnySignal) ifTrue:[^ true].
+    (self == SetOfAnySignal) ifTrue:[^ aSignal isQuerySignal not].
     self do:[:sig | (sig accepts:aSignal) ifTrue:[^ true]].
     ^ false
 !
 
 includes:aSignal
     "return true, if the receiver contains the argument, aSignal.
-     The special any-Set includes every signal."
+     The special any-Set includes every (non-query) signal."
 
     (self == SetOfAnySignal) ifTrue:[
-	^ aSignal isSignal
+	^ (aSignal isSignal and:[aSignal isQuerySignal not])
     ].
     ^ super includes:aSignal
 ! !