--- a/QuerySignal.st	Mon Aug 02 14:31:28 1999 +0200
+++ b/QuerySignal.st	Mon Aug 02 15:42:45 1999 +0200
@@ -239,35 +239,37 @@
 !QuerySignal methodsFor:'answering queries'!
 
 answer:someAnswer do:aBlock
-     "evaluate the argument, aBlock.
-      If the receiver is queried during evaluation, answer with someAnswer.
-      This is a wrapper for #handle:do: for lazy typists; no new functionality."
+    "evaluate the argument, aBlock.
+     If the receiver is queried during evaluation, answer with someAnswer.
+     This is a wrapper for #handle:do: for lazy typists; no new functionality."
+
+    <exception: #handle>
 
-      thisContext markForHandle.
-      aBlock value.
+    "/ thisContext markForHandle. -- same as above pragma
+    aBlock value.  "the real logic is in Exception>>doRaise"
 
-      "
-       |q|
+    "
+     |q|
 
-       q := QuerySignal new.
+     q := QuerySignal new.
 
-       q answer:true do:[
-          Transcript showCR:'query answers: ' , (q query printString).
-       ]
-      "
+     q answer:true do:[
+        Transcript showCR:'query answers: ' , (q query printString).
+     ]
+    "
 
-      "
-       |q|
+    "
+     |q|
 
-       q := QuerySignal new.
+     q := QuerySignal new.
 
-       q answer:false do:[
-          Transcript showCR:'first query answers: ' , (q query printString).
-          q answer:true do:[
-              Transcript showCR:'second query answers: ' , (q query printString).
-          ]
-       ]
-      "
+     q answer:false do:[
+        Transcript showCR:'first query answers: ' , (q query printString).
+        q answer:true do:[
+            Transcript showCR:'second query answers: ' , (q query printString).
+        ]
+     ]
+    "
 
     "Created: / 10.7.1996 / 15:08:20 / cg"
     "Modified: / 14.10.1996 / 16:59:18 / cg"
@@ -439,5 +441,5 @@
 !QuerySignal class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/QuerySignal.st,v 1.28 1999-07-28 21:00:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/QuerySignal.st,v 1.29 1999-08-02 13:42:35 cg Exp $'
 ! !