--- a/QuerySignal.st	Fri Mar 19 08:27:31 1999 +0100
+++ b/QuerySignal.st	Fri Mar 19 08:33:38 1999 +0100
@@ -343,10 +343,12 @@
 
     s := aSignal.
     [s notNil] whileTrue:[
-	self == s ifTrue:[^ true].
-	s := s parent
+        self == s ifTrue:[^ true].
+        s := s parent
     ].
     ^ false
+
+    "Modified: / 19.3.1999 / 08:29:57 / stefan"
 !
 
 isQuerySignal
@@ -406,11 +408,13 @@
 !
 
 raise
-    "redefined to use #query"
+    "QuerySignals are proceedable by definition,
+     so they should be raised with #query or #raiseRequest"
 
+    self obsoleteMethodWarning:'use #query or #raiseRequest'.    
     ^ self query
 
-    "Modified: / 2.3.1998 / 10:39:05 / stefan"
+    "Modified: / 18.3.1999 / 18:33:57 / stefan"
 !
 
 raiseRequest
@@ -424,5 +428,5 @@
 !QuerySignal class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/QuerySignal.st,v 1.23 1998-06-15 19:30:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/QuerySignal.st,v 1.24 1999-03-19 07:33:38 stefan Exp $'
 ! !