--- a/QuerySignal.st Tue May 21 21:58:09 2013 +0100
+++ b/QuerySignal.st Fri May 24 18:52:05 2013 +0100
@@ -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 $'
! !