--- a/Collection.st	Sat May 18 16:51:33 1996 +0200
+++ b/Collection.st	Sat May 18 17:32:43 1996 +0200
@@ -842,12 +842,12 @@
 
      #(1 2 3 4 999 5 6 7 8 9) 
         doWithExit:[:element :exit |
-            Transcript showCr:element.
+            Transcript showCR:element.
             element >= 99 ifTrue:[exit value:element]]
 
      #(1 2 3 4 5 6 7 8 9) 
         doWithExit:[:element :exit |
-            Transcript showCr:element.
+            Transcript showCR:element.
             element >= 99 ifTrue:[exit value:element]]
     "
 
@@ -859,17 +859,17 @@
      el := #(1 2 3 4 999 5 6 7 8 9) 
         doWithExit:[:element :exit |
             element >= 99 ifTrue:[exit value:element]].
-     Transcript showCr:el.
+     Transcript showCR:el.
 
 
-     this does NOT work as expected by a newComer ;-) (the showCr is not reached):
+     this does NOT work as expected by a newComer ;-) (the showCR is not reached):
 
      |el|
 
      el := #(1 2 3 4 999 5 6 7 8 9) 
         do:[:element |
             element >= 99 ifTrue:[^ element]].
-     Transcript showCr:el.
+     Transcript showCR:el.
     "
 
     "Modified: 18.4.1996 / 14:16:59 / cg"
@@ -927,11 +927,11 @@
     ]
     "
      #( (1 one) (2 two) (3 three) (4 four) (5 five) (6 six)) 
-     pairsDo:[:num :sym | Transcript show:num; show:' is: '; showCr:sym]
+     pairsDo:[:num :sym | Transcript show:num; show:' is: '; showCR:sym]
 
 
      #( (1 1)  (1 2)  (1 3)  (1 4)  (1 5)) 
-     pairsDo:[:x :y | Transcript showCr:x@y]
+     pairsDo:[:x :y | Transcript showCR:x@y]
     "
 !
 
@@ -1000,7 +1000,7 @@
     ]
     "
      #( (1 one eins) (2 two zwei) (3 three drei) (4 four vier) (5 five #'fünf') (6 six sechs)) 
-     triplesDo:[:num :sym1 :sym2 | Transcript show:num; space; show:sym1; space; showCr:sym2]
+     triplesDo:[:num :sym1 :sym2 | Transcript show:num; space; show:sym1; space; showCR:sym2]
     "
 !
 
@@ -1069,13 +1069,13 @@
 
     "
      (1 to:3) with:#(one two three) do:[:num :sym |
-	Transcript showCr:(num->sym)
+	Transcript showCR:(num->sym)
      ]
      (1 to:3) with:#(one two three) asSet do:[:num :sym |
-	Transcript showCr:(num->sym)
+	Transcript showCR:(num->sym)
      ].
      (1 to:3) asSet with:#(one two three) do:[:num :sym |
-	Transcript showCr:(num->sym)
+	Transcript showCR:(num->sym)
      ]
     "
 ! !
@@ -1518,6 +1518,6 @@
 !Collection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.59 1996-05-18 13:46:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.60 1996-05-18 15:26:50 cg Exp $'
 ! !
 Collection initialize!