--- a/Iterator.st	Tue Mar 19 10:22:30 2013 +0100
+++ b/Iterator.st	Tue Mar 19 10:22:32 2013 +0100
@@ -276,7 +276,8 @@
 !Iterator methodsFor:'adding & removing'!
 
 add: anObject
-    "Iterators are read-only"
+    "raises an error: Iterators are read-only"
+
     self shouldNotImplement
 !
 
@@ -342,6 +343,7 @@
     self do: [:el | aBlock value: index value: el.  index := index + 1]
 ! !
 
+
 !Iterator methodsFor:'printing & storing'!
 
 displayOn:aGCOrStream
@@ -396,9 +398,10 @@
 !Iterator class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Iterator.st,v 1.22 2010-09-21 06:58:00 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Iterator.st,v 1.23 2013-03-19 09:22:32 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/Iterator.st,v 1.22 2010-09-21 06:58:00 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Iterator.st,v 1.23 2013-03-19 09:22:32 cg Exp $'
 ! !
+