--- a/RecursionLock.st	Sat May 18 16:51:33 1996 +0200
+++ b/RecursionLock.st	Sat May 18 17:32:43 1996 +0200
@@ -60,9 +60,9 @@
 
         lock := RecursionLock new.
         lock critical:[
-            Transcript showCr:'in lock ...'.
+            Transcript showCR:'in lock ...'.
             lock critical:[
-                Transcript showCr:'again ...'
+                Transcript showCR:'again ...'
             ]
         ]
                                                                         [exEnd]
@@ -73,11 +73,11 @@
 
         lock := Semaphore forMutualExclusion.
         lock critical:[
-            Transcript showCr:'in lock ...'.
+            Transcript showCR:'in lock ...'.
             lock critical:[
                 '*** never reached - deadlock because sema is already locked ***'.
                 '    (press CTRL-c and abort in the debugger)'.
-                Transcript showCr:'again ...'
+                Transcript showCR:'again ...'
             ]
         ]
                                                                         [exEnd]
@@ -158,5 +158,5 @@
 !RecursionLock class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/RecursionLock.st,v 1.13 1996-04-27 18:02:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/RecursionLock.st,v 1.14 1996-05-18 15:32:43 cg Exp $'
 ! !