--- a/QuerySignal.st	Sat May 18 16:51:33 1996 +0200
+++ b/QuerySignal.st	Sat May 18 17:32:43 1996 +0200
@@ -78,22 +78,22 @@
     zero := 0.
     querySignal := QuerySignal new.
     querySignal handle:[:ex |
-        Transcript showCr:'query'.
+        Transcript showCR:'query'.
         ex proceedWith:true
     ] do:[
         'nesting'.
         [
             [
                 Object errorSignal handle:[:ex |
-                    Transcript showCr:'some error: ' , ex errorString.
+                    Transcript showCR:'some error: ' , ex errorString.
                     ex proceed
                 ] do:[
                     [
                         1 // zero.  'an error which is cought in the handler'.
                         (querySignal raise) == true ifTrue:[
-                            Transcript showCr:'query says: ok'.
+                            Transcript showCR:'query says: ok'.
                         ] ifFalse:[
-                            Transcript showCr:'query says: no'
+                            Transcript showCR:'query says: no'
                         ]
                     ] value
                 ]
@@ -119,15 +119,15 @@
         [
             [
                 Object errorSignal handle:[:ex |
-                    Transcript showCr:'some error: ' , ex errorString.
+                    Transcript showCR:'some error: ' , ex errorString.
                     ex proceed
                 ] do:[
                     [
                         1 // zero.  'an error which is cought in the handler'.
                         (querySignal raise) == true ifTrue:[
-                            Transcript showCr:'query says: ok'.
+                            Transcript showCR:'query says: ok'.
                         ] ifFalse:[
-                            Transcript showCr:'query says: no'
+                            Transcript showCR:'query says: no'
                         ]
                     ] value
                 ]
@@ -148,9 +148,9 @@
                 [
                     [
                         (signal raise) == true ifTrue:[
-                            Transcript showCr:'query says: ok'.
+                            Transcript showCR:'query says: ok'.
                         ] ifFalse:[
-                            Transcript showCr:'query says: no'
+                            Transcript showCR:'query says: no'
                         ]
                     ] value
                 ] value
@@ -176,9 +176,9 @@
                             ex proceedWith:nil
                         ] do:[
                             (signal raise) == true ifTrue:[
-                                Transcript showCr:'query says: ok'.
+                                Transcript showCR:'query says: ok'.
                             ] ifFalse:[
-                                Transcript showCr:'query says: no'
+                                Transcript showCR:'query says: no'
                             ]
                         ]
                     ] value
@@ -219,5 +219,5 @@
 !QuerySignal class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/QuerySignal.st,v 1.12 1996-05-12 13:23:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/QuerySignal.st,v 1.13 1996-05-18 15:29:41 cg Exp $'
 ! !