--- a/Iterator.st	Tue Sep 21 08:57:39 2010 +0200
+++ b/Iterator.st	Tue Sep 21 08:58:00 2010 +0200
@@ -344,8 +344,13 @@
 
 !Iterator methodsFor:'printing & storing'!
 
-displayString
-    ^ 'Iterator(' , block displayString , ')'
+displayOn:aGCOrStream
+    (self class == ByteArray and:[aGCOrStream isStream or:[aGCOrStream == Transcript]]) ifTrue:[
+        aGCOrStream nextPutAll:'Iterator('.
+        block displayOn:aGCOrStream.
+        ^ self
+    ].
+    ^ super displayOn:aGCOrStream.
 
     "Modified: / 06-10-2006 / 14:35:23 / cg"
 !
@@ -391,5 +396,9 @@
 !Iterator class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Iterator.st,v 1.21 2009-09-28 13:25:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Iterator.st,v 1.22 2010-09-21 06:58:00 stefan Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libbasic2/Iterator.st,v 1.22 2010-09-21 06:58:00 stefan Exp $'
 ! !