QuerySignal.st
changeset 15115 1d2e57f44876
parent 13530 3d78beae46f2
child 15238 5aa8f2cdad24
child 18050 131d0413b25b
--- a/QuerySignal.st	Fri Apr 19 10:41:19 2013 +0200
+++ b/QuerySignal.st	Fri Apr 19 10:41:25 2013 +0200
@@ -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 $'
 ! !
+