--- a/RunArray.st	Sat May 18 09:49:35 1996 +0200
+++ b/RunArray.st	Sat May 18 17:33:04 1996 +0200
@@ -125,7 +125,7 @@
     |coll|
 
     coll := OrderedCollection new.
-    Transcript showCr:(    
+    Transcript showCR:(    
         Time millisecondsToRun:[
             100000 timesRepeat:[coll add:'hello'].
             100000 timesRepeat:[coll add:'world'].
@@ -141,7 +141,7 @@
     |coll|
 
     coll := RunArray new.
-    Transcript showCr:(    
+    Transcript showCR:(    
         Time millisecondsToRun:[
             100000 timesRepeat:[coll add:'hello'].
             100000 timesRepeat:[coll add:'world'].
@@ -157,7 +157,7 @@
     |coll|
 
     coll := RunArray new.
-    Transcript showCr:(    
+    Transcript showCR:(    
         Time millisecondsToRun:[
             coll add:'hello' withOccurrences:100000.
             coll add:'world' withOccurrences:100000.
@@ -174,7 +174,7 @@
     |coll|
 
     coll := RunArray new.
-    Transcript showCr:(    
+    Transcript showCR:(    
         Time millisecondsToRun:[
             1 to:1000 do:[:i | coll add:i].
         ]
@@ -185,7 +185,7 @@
     |coll|
 
     coll := OrderedCollection new.
-    Transcript showCr:(    
+    Transcript showCR:(    
         Time millisecondsToRun:[
             1 to:1000 do:[:i | coll add:i].
         ]
@@ -475,33 +475,33 @@
 
      c := RunArray new.
      c add:1; add:1; add:1; add:2; add:2; add:3; add:3; add:4; add:5; yourself.
-     Transcript showCr:c.   
+     Transcript showCR:c.   
 
      c at:1 put:$a.
-     Transcript showCr:c.   
+     Transcript showCR:c.   
      c.
 
      c at:3 put:$a.
-     Transcript showCr:c.   
+     Transcript showCR:c.   
      c.
 
      c at:4 put:$a.   
-     Transcript showCr:c.   
+     Transcript showCR:c.   
      c.
 
      c at:5 put:$a.   
-     Transcript showCr:c.   
+     Transcript showCR:c.   
      c.
 
      c at:2 put:$0.   
-     Transcript showCr:c.   
+     Transcript showCR:c.   
      c.
 
      c at:2 put:$a.   
-     Transcript showCr:c.   
+     Transcript showCR:c.   
      c.
 
-     Transcript showCr:c.   
+     Transcript showCR:c.   
     "
 
     "Modified: 12.5.1996 / 15:55:32 / cg"
@@ -660,8 +660,8 @@
      |r|
 
      r := RunArray withAll:#(1 2 3 3 3 3 4 4 4 5 6 7 7 7 7 7 7 7).
-     Transcript showCr:r.
-     Transcript showCr:r asOrderedCollection
+     Transcript showCR:r.
+     Transcript showCR:r asOrderedCollection
     "
 
     "Modified: 11.5.1996 / 13:34:59 / cg"
@@ -875,5 +875,5 @@
 !RunArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/RunArray.st,v 1.9 1996-05-14 13:55:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/RunArray.st,v 1.10 1996-05-18 15:32:47 cg Exp $'
 ! !