--- a/Interval.st	Tue Feb 15 15:33:34 1994 +0100
+++ b/Interval.st	Fri Feb 25 13:58:55 1994 +0100
@@ -27,7 +27,7 @@
 For example, the interval (1 to:5) containes the elements (1 2 3 4 5) and
 (1 to:6 by:2) contains (1 3 5).
 
-$Header: /cvs/stx/stx/libbasic/Interval.st,v 1.6 1994-01-16 03:41:50 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Interval.st,v 1.7 1994-02-25 12:58:54 claus Exp $
 
 written summer 89 by claus
 '!
@@ -162,26 +162,8 @@
     
 !Interval methodsFor:'printing & storing'!
 
-printString
-    "return a string for informal printing"
-
-    ^ self storeString
-!
-
 displayString
-    ^ 'Interval(' , self storeString , ')'
-!
-
-storeString
-    "return a string for storing"
-
-    step = 1 ifTrue:[
-        ^ '(' , start storeString , ' to:' , stop storeString , ')'
-    ].
-    ^ '(' , start storeString , ' to:' , stop storeString , ' by:' , step storeString , ')'
-
-    "(1 to:10) storeString"
-    "(1 to:10 by:2) storeString"
+    ^ 'Interval(' , self printString , ')'
 !
 
 printOn:aStream
@@ -196,20 +178,15 @@
     ].
 
     "(1 to:10) printOn:Transcript"
-    "(1 to:10 by:2) printOn:Stdout"
+    "(1 to:10 by:2) printOn:Transcript"
+    "(1 to:10) printString"
 !
 
 storeOn:aStream
     "store a representation which can reconstruct the receiver to aStream"
 
     aStream nextPut:$(.
-    start storeOn:aStream.
-    aStream nextPutAll:' to:'.
-    stop storeOn:aStream.
-    step ~= 1 ifTrue:[
-        aStream nextPutAll:' by:'.
-        step storeOn:aStream.
-    ].
+    self printOn:aStream.
     aStream nextPut:$).
 
     "(1 to:10) storeOn:Transcript"
@@ -246,7 +223,7 @@
 
     |newColl|
 
-    newColl := self species new:self size.
+    newColl := self species new:(self size).
     self do:[:each |
         (aBlock value:each) ifTrue:[newColl add:each]
     ].