--- a/Collection.st	Tue Aug 21 12:02:46 2012 +0200
+++ b/Collection.st	Tue Aug 21 14:49:44 2012 +0200
@@ -2815,6 +2815,30 @@
     "Modified: 10.5.1997 / 14:15:43 / cg"
 !
 
+tuplesDo:aBlock
+    "evaluate the argument, aBlock for every element in the collection,
+     which is supposed to consist of N-element collections.
+     The block is called with N arguments for each collection in the receiver."
+
+    self do:[:aTuple |
+        aBlock valueWithArguments:aTuple
+    ]
+    "
+     #( 
+        (1 one eins uno) 
+        (2 two zwei due) 
+        (3 three drei tre) 
+        (4 four vier quattro) 
+        (5 five #'fuenf' cinque) 
+     ) 
+     tuplesDo:[:num :sym1 :sym2 :sym3 | 
+                    Transcript show:num; space; show:sym1; space; show:sym2; space; showCR:sym3
+               ]
+    "
+
+    "Modified: 10.5.1997 / 14:15:43 / cg"
+!
+
 with:aCollection collect:aTwoArgBlock
     "evaluate the argument, aBlock for successive elements from
      each the receiver and the argument, aSequenceableCollection;
@@ -4373,11 +4397,11 @@
 !Collection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.280 2012-08-13 16:46:26 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.281 2012-08-21 12:49:44 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.280 2012-08-13 16:46:26 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.281 2012-08-21 12:49:44 cg Exp $'
 ! !
 
 Collection initialize!