--- a/QuerySignal.st	Tue Jul 25 17:32:21 2017 +0200
+++ b/QuerySignal.st	Tue Jul 25 17:35:43 2017 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1995 by Claus Gittinger
 	      All Rights Reserved
@@ -418,13 +420,15 @@
 
     signal := anException creator.
 
-    self == signal ifTrue:[^ true].               "quick check"
-    anException isNotification ifFalse:[^ false]. "speed up non-queries by not traversing the parent chain"
+    self == signal ifTrue:[^ true].         "quick check"
+    anException isQuery ifFalse:[^ false].  "speed up non-queries by not traversing the parent chain"
 
     [(signal := signal parent) notNil] whileTrue:[
         self == signal ifTrue:[^ true].
     ].
     ^ false
+
+    "Modified (format): / 25-07-2017 / 16:11:00 / stefan"
 !
 
 isQuery