--- a/Iterator.st	Mon May 22 13:11:30 2000 +0200
+++ b/Iterator.st	Wed Jul 12 16:57:48 2000 +0200
@@ -1,5 +1,3 @@
-"{ Package: 'stx:goodies' }"
-
 "
  COPYRIGHT.
  The above file is a Manchester Goodie protected by copyright.
@@ -25,6 +23,8 @@
 "
 
 
+"{ Package: 'stx:goodies' }"
+
 Collection subclass:#Iterator
 	instanceVariableNames:'block'
 	classVariableNames:''
@@ -338,6 +338,12 @@
     self do: [:el | aBlock value: index value: el.  index := index + 1]
 ! !
 
+!Iterator methodsFor:'printing & storing'!
+
+displayString
+    ^ 'Iterator(' , block displayString , ')'
+! !
+
 !Iterator methodsFor:'private'!
 
 block: aBlock
@@ -359,5 +365,5 @@
 !Iterator class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Iterator.st,v 1.8 2000-03-02 14:14:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Iterator.st,v 1.9 2000-07-12 14:57:48 cg Exp $'
 ! !