--- a/Cons.st	Sun Aug 08 17:30:46 2010 +0200
+++ b/Cons.st	Sun Aug 08 17:34:15 2010 +0200
@@ -416,6 +416,8 @@
 !Cons methodsFor:'enumerating'!
 
 do:aBlock
+    "evaluate aBlock for each car"
+
     |ptr|
 
     aBlock value:car.
@@ -424,6 +426,8 @@
         aBlock value:ptr car.
         ptr := ptr cdr.
     ].
+
+    "Modified: / 08-08-2010 / 17:33:44 / cg"
 ! !
 
 !Cons methodsFor:'list processing'!
@@ -571,9 +575,9 @@
 !Cons class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Cons.st,v 1.13 2010-08-08 15:30:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Cons.st,v 1.14 2010-08-08 15:34:15 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/Cons.st,v 1.13 2010-08-08 15:30:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Cons.st,v 1.14 2010-08-08 15:34:15 cg Exp $'
 ! !