--- a/QuerySignal.st	Mon Oct 14 17:51:35 1996 +0200
+++ b/QuerySignal.st	Mon Oct 14 17:59:28 1996 +0200
@@ -260,19 +260,19 @@
        q := QuerySignal new.
 
        q answer:false do:[
-          Transcript showCR:'query answers: ' , (q raise printString).
-          q answer:true in:[
-              Transcript showCR:'query answers: ' , (q raise printString).
+          Transcript showCR:'first query answers: ' , (q raise printString).
+          q answer:true do:[
+              Transcript showCR:'second query answers: ' , (q raise printString).
           ]
        ]
       "
 
-    "Modified: 10.7.1996 / 15:05:56 / cg"
     "Created: 10.7.1996 / 15:08:20 / cg"
+    "Modified: 14.10.1996 / 16:59:18 / cg"
 ! !
 
 !QuerySignal  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/QuerySignal.st,v 1.14 1996-07-10 13:08:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/QuerySignal.st,v 1.15 1996-10-14 15:59:28 cg Exp $'
 ! !