--- a/RunArray.st	Sat May 11 14:07:28 1996 +0200
+++ b/RunArray.st	Sat May 11 14:28:44 1996 +0200
@@ -683,7 +683,7 @@
     "Modified: 11.5.1996 / 13:35:03 / cg"
 ! !
 
-!RunArray methodsFor:'printing'!
+!RunArray methodsFor:'printing & storing'!
 
 storeOn:aStream 
     "Append to aStream an expression which, if evaluated, will generate   
@@ -694,7 +694,7 @@
         contentsArray pairWiseDo:[:len :val | 
             aStream nextPutAll: ' add:'; nextPutAll:val storeString. 
             len == 1 ifFalse:[
-                aStream nextPutAll:' withCount:'; nextPutAll:len printString.
+                aStream nextPutAll:' withOccurrences:'; nextPutAll:len printString.
             ].
             aStream nextPutAll:';'
         ].
@@ -708,14 +708,14 @@
         add:1; 
         add:2; 
         add:3; 
-        add:4 withCount:100; 
+        add:4 withOccurrences:100; 
         add:5; 
-        yourself) storeString
+        yourself) storeString 
 
      RunArray new storeString 
     "
 
-    "Modified: 11.5.1996 / 13:35:08 / cg"
+    "Modified: 11.5.1996 / 14:28:38 / cg"
 ! !
 
 !RunArray methodsFor:'private'!
@@ -825,5 +825,5 @@
 !RunArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/RunArray.st,v 1.5 1996-05-11 12:07:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/RunArray.st,v 1.6 1996-05-11 12:28:44 cg Exp $'
 ! !