--- a/Query.st	Wed Aug 04 16:11:36 1999 +0200
+++ b/Query.st	Wed Aug 04 16:12:09 1999 +0200
@@ -223,6 +223,7 @@
 
     |s|
 
+    self == aSignal ifTrue:[^ true].
     aSignal isQuerySignal ifFalse:[^ false].
 
     s := aSignal.
@@ -325,7 +326,7 @@
 
 !Query methodsFor:'default actions'!
 
-action
+defaultAction
     "the default action is to return the default value.
      Subclasses may redefine this"
 
@@ -337,5 +338,5 @@
 !Query class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Query.st,v 1.6 1999-08-03 12:53:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Query.st,v 1.7 1999-08-04 14:12:05 stefan Exp $'
 ! !