QuerySignal.st
branchjv
changeset 18050 131d0413b25b
parent 18011 deb0c3355881
parent 15115 1d2e57f44876
child 18060 3708e12e9aa8
--- a/QuerySignal.st	Fri Apr 19 09:38:48 2013 +0200
+++ b/QuerySignal.st	Tue Apr 23 14:27:19 2013 +0100
@@ -414,7 +414,7 @@
 
     |signal|
 
-    signal := anException signal.
+    signal := anException creator.
 
     self == signal ifTrue:[^ true].               "quick check"
     anException isNotification ifFalse:[^ false]. "speed up non-queries by not traversing the parent chain"
@@ -510,9 +510,10 @@
 !QuerySignal class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/QuerySignal.st,v 1.45 2011-07-29 17:59:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/QuerySignal.st,v 1.46 2013-04-19 08:41:25 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/QuerySignal.st,v 1.45 2011-07-29 17:59:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/QuerySignal.st,v 1.46 2013-04-19 08:41:25 cg Exp $'
 ! !
+