--- a/SemaphoreSet.st	Sat May 18 16:51:33 1996 +0200
+++ b/SemaphoreSet.st	Sat May 18 17:32:43 1996 +0200
@@ -74,7 +74,7 @@
                     name := 'sema2'
                 ]
             ].
-            Transcript showCr: name, ' raised'.
+            Transcript showCR: name, ' raised'.
             ret == sema2 ifTrue:[
                 proc terminate
             ]
@@ -112,7 +112,7 @@
                     name := ret printString
                 ]
             ].
-            Transcript showCr: name, ' raised'.
+            Transcript showCR: name, ' raised'.
             ret isNil ifTrue:[
                 proc terminate
             ]
@@ -149,7 +149,7 @@
                 ret == q2 readSemaphore ifTrue:[
                     Transcript show:'q2 has data: '; show:q2 next; cr.
                 ] ifFalse:[
-                    Transcript showCr:'timeout'
+                    Transcript showCR:'timeout'
                 ]
             ].
         ] loop
@@ -277,5 +277,5 @@
 !SemaphoreSet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SemaphoreSet.st,v 1.8 1996-04-27 18:02:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SemaphoreSet.st,v 1.9 1996-05-18 15:29:48 cg Exp $'
 ! !