--- a/SequenceableCollection.st	Fri Jan 26 23:18:13 1996 +0100
+++ b/SequenceableCollection.st	Sat Jan 27 14:58:15 1996 +0100
@@ -11,10 +11,10 @@
 "
 
 Collection subclass:#SequenceableCollection
-	 instanceVariableNames:''
-	 classVariableNames:''
-	 poolDictionaries:''
-	 category:'Collections-Abstract'
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Collections-Abstract'
 !
 
 !SequenceableCollection class methodsFor:'documentation'!
@@ -2384,8 +2384,7 @@
             ] ifFalse:[
                 index2 := index2 + 1..
             ].
-            index2 <= end
-        ] whileTrue.
+        ] doWhile:[index2 <= end].
 
 "/        (index + 1) to:end do:[:index2 |
 "/            thisOne := self at:index2.
@@ -2412,5 +2411,5 @@
 !SequenceableCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SequenceableCollection.st,v 1.46 1996-01-24 16:12:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SequenceableCollection.st,v 1.47 1996-01-27 13:58:15 stefan Exp $'
 ! !