--- a/Collection.st	Sat Jan 16 14:58:53 2016 +0100
+++ b/Collection.st	Sat Jan 16 20:32:45 2016 +0100
@@ -3054,6 +3054,7 @@
     ^ nextValue
 
     "
+     (1 to:10) fold:[:sum :el| sum + el]
      (1 to:15) fold:[:x :y| '(', x printString, '+', y printString, ')']
      (1 to:15) reduce:[:x :y| '(', x printString, '+', y printString, ')']
      #('if' 'it' 'is' 'to' 'be' 'it' 'is' 'up' 'to' 'me') fold: [:a :b | a, ' ', b]