--- a/Iterator.st	Tue Feb 17 13:17:58 2015 +0100
+++ b/Iterator.st	Sat Feb 21 00:57:03 2015 +0100
@@ -399,6 +399,8 @@
 !Iterator methodsFor:'printing & storing'!
 
 displayOn:aGCOrStream
+    "/ what a kludge - Dolphin and Squeak mean: printOn: a stream;
+    "/ ST/X (and some old ST80's) mean: draw-yourself on a GC.
     (aGCOrStream isStream) ifTrue:[
         aGCOrStream nextPutAll:'Iterator('.
         block displayOn:aGCOrStream.
@@ -450,10 +452,10 @@
 !Iterator class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Iterator.st,v 1.31 2015-02-03 14:18:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Iterator.st,v 1.32 2015-02-20 23:57:03 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/Iterator.st,v 1.31 2015-02-03 14:18:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Iterator.st,v 1.32 2015-02-20 23:57:03 cg Exp $'
 ! !