--- a/Iterator.st	Sat Feb 21 00:57:03 2015 +0100
+++ b/Iterator.st	Sat Feb 21 00:57:27 2015 +0100
@@ -404,6 +404,7 @@
     (aGCOrStream isStream) ifTrue:[
         aGCOrStream nextPutAll:'Iterator('.
         block displayOn:aGCOrStream.
+        aGCOrStream nextPutAll:')'.
         ^ self
     ].
     ^ super displayOn:aGCOrStream.
@@ -452,10 +453,10 @@
 !Iterator class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Iterator.st,v 1.32 2015-02-20 23:57:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Iterator.st,v 1.33 2015-02-20 23:57:27 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/Iterator.st,v 1.32 2015-02-20 23:57:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Iterator.st,v 1.33 2015-02-20 23:57:27 cg Exp $'
 ! !