--- a/QuerySignal.st	Mon May 13 15:47:00 2013 +0200
+++ b/QuerySignal.st	Mon May 13 15:47:28 2013 +0200
@@ -289,7 +289,7 @@
     "{ Pragma: +inlineNew }"
     "answer a new exception object for this signal"
 
-    ^ Query basicNew setSignal:self.
+    ^ Query basicNew creator:self.
 
     "
       |querySignal|
@@ -510,10 +510,10 @@
 !QuerySignal class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/QuerySignal.st,v 1.46 2013-04-19 08:41:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/QuerySignal.st,v 1.47 2013-05-13 13:47:28 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/QuerySignal.st,v 1.46 2013-04-19 08:41:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/QuerySignal.st,v 1.47 2013-05-13 13:47:28 stefan Exp $'
 ! !