QuerySignal.st
changeset 4527 2ddbe34bab87
parent 4514 abc3f0992176
child 4908 da25af8cd02a
--- a/QuerySignal.st	Wed Aug 04 16:13:11 1999 +0200
+++ b/QuerySignal.st	Wed Aug 04 16:13:32 1999 +0200
@@ -346,6 +346,7 @@
 
     |s|
 
+    self == aSignal ifTrue:[^ true].
     aSignal isQuerySignal ifFalse:[^ false].
 
     s := aSignal.
@@ -462,5 +463,5 @@
 !QuerySignal class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/QuerySignal.st,v 1.31 1999-08-03 12:56:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/QuerySignal.st,v 1.32 1999-08-04 14:13:30 stefan Exp $'
 ! !