--- a/Object.st	Mon Jan 22 17:27:23 1996 +0100
+++ b/Object.st	Tue Jan 23 18:47:09 1996 +0100
@@ -142,7 +142,7 @@
 	NonIntegerIndexSignal nameClass:self message:#nonIntegerIndexSignal.
 	NonIntegerIndexSignal notifierString:'index must be integer'.
 
-	UserNotificationSignal := Signal new newSignalMayProceed:true.
+	UserNotificationSignal := QuerySignal new newSignalMayProceed:true.
 	UserNotificationSignal nameClass:self message:#userNotificationSignal.
 	UserNotificationSignal notifierString:'user notifiaction'.
 
@@ -4219,6 +4219,6 @@
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.86 1996-01-15 21:42:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.87 1996-01-23 17:47:09 ah Exp $'
 ! !
 Object initialize!