--- a/Notification.st	Wed Aug 04 16:11:36 1999 +0200
+++ b/Notification.st	Wed Aug 04 16:12:09 1999 +0200
@@ -72,7 +72,7 @@
 
 !Notification methodsFor:'default actions'!
 
-action
+defaultAction
     "Default action for notifications: open a info box with errorString"
 
     |text|
@@ -101,6 +101,6 @@
 !Notification class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Notification.st,v 1.4 1999-08-03 12:07:42 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Notification.st,v 1.5 1999-08-04 14:12:07 stefan Exp $'
 ! !
 Notification initialize!

--- 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 $'
 ! !

--- a/Warning.st	Wed Aug 04 16:11:36 1999 +0200
+++ b/Warning.st	Wed Aug 04 16:12:09 1999 +0200
@@ -72,7 +72,7 @@
 
 !Warning methodsFor:'default actions'!
 
-action
+defaultAction
     "Default action for warnings: open a warn box with errorString"
 
     |text|
@@ -100,6 +100,6 @@
 !Warning class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Warning.st,v 1.4 1999-08-03 12:08:07 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Warning.st,v 1.5 1999-08-04 14:12:09 stefan Exp $'
 ! !
 Warning initialize!