--- a/QuerySignal.st	Mon Oct 07 20:56:11 2002 +0200
+++ b/QuerySignal.st	Tue Oct 08 19:27:51 2002 +0200
@@ -303,7 +303,7 @@
             someValue isNil ifTrue:[
                 handler := [:ex | ex proceedWith:nil]
             ] ifFalse:[
-                handler := [:ex | ex proceedWith:someValue].
+                handler := [:ex | ex proceedWith:someValue value].
             ]
         ]
     ].
@@ -449,7 +449,7 @@
 
     "/ no handler found - return the default value
     hasDefault == true ifTrue:[
-        ^ defaultAnswer
+        ^ defaultAnswer value
     ].
     handlerBlock isNil ifTrue:[
         ^ nil
@@ -463,5 +463,5 @@
 !QuerySignal class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/QuerySignal.st,v 1.37 2001-12-07 18:13:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/QuerySignal.st,v 1.38 2002-10-08 17:27:51 penk Exp $'
 ! !