--- a/Iterator.st	Tue Feb 03 15:17:52 2015 +0100
+++ b/Iterator.st	Tue Feb 03 15:18:12 2015 +0100
@@ -23,6 +23,8 @@
 "
 "{ Package: 'stx:libbasic2' }"
 
+"{ NameSpace: Smalltalk }"
+
 Collection subclass:#Iterator
 	instanceVariableNames:'block'
 	classVariableNames:''
@@ -379,6 +381,7 @@
     (e.g. indexes and elements) as the arguments."
 
     | index |
+
     index := 1.
     self do: [:el | aBlock value: index value: el.  index := index + 1]
 !
@@ -447,10 +450,10 @@
 !Iterator class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Iterator.st,v 1.30 2014-07-10 12:23:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Iterator.st,v 1.31 2015-02-03 14:18:12 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/Iterator.st,v 1.30 2014-07-10 12:23:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Iterator.st,v 1.31 2015-02-03 14:18:12 cg Exp $'
 ! !