Fixed Set ReadStream functionality.

diff --git a/src/core/iterator.slate b/src/core/iterator.slate
index 63e4bd0..83e983b 100644 (file)
--- a/src/core/iterator.slate
+++ b/src/core/iterator.slate
@@ -248,9 +248,11 @@ This is poor for sparse Sets."
 [| each |
   [i isAtEnd]
     whileFalse:
-      [each: (i collection contents at: (i index: i index + 1)).
+      [each: (i collection contents at: i index).
+       i index: i index + 1.
        each ifNotNil: [i position: i position + 1.
                       ^ each]].
+  i exhausted
 ].
 
 i@(Set ReadStream traits) isAtEnd