--- a/SequenceableCollection.st	Mon Dec 15 12:48:15 2008 +0100
+++ b/SequenceableCollection.st	Mon Dec 15 13:04:44 2008 +0100
@@ -1229,6 +1229,11 @@
 
     "
      (Array 
+            with:($a to:$d)) 
+        combinationsDo:[:eachCombination | Transcript showCR: eachCombination]
+    "
+    "
+     (Array 
             with:($a to:$d)
             with:(1 to: 4)) 
         combinationsDo:[:eachCombination | Transcript showCR: eachCombination]
@@ -7162,7 +7167,7 @@
 !SequenceableCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SequenceableCollection.st,v 1.259 2008-12-15 10:40:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SequenceableCollection.st,v 1.260 2008-12-15 12:04:44 cg Exp $'
 ! !
 
 SequenceableCollection initialize!