--- a/SequenceableCollection.st	Wed Jan 23 18:14:50 2013 +0100
+++ b/SequenceableCollection.st	Wed Jan 23 18:40:11 2013 +0100
@@ -4723,6 +4723,22 @@
     "
 !
 
+keysAndValuesConform:aTwoArgBlock
+    "evaluate the argument, aBlock for every element in the collection,
+     passing both index and element as arguments.
+     Return false if any such evaluation returns false, true otherwise."
+
+    self keysAndValuesDo:[:index :el | 
+        (aTwoArgBlock value:index value:el) ifFalse:[^  false].
+    ].
+    ^  true
+
+    "
+     #(10 20 30 40) keysAndValuesConform:[:key :element | element = (key * 10) ]. 
+     #(10 20 30 33 40) keysAndValuesConform:[:key :element | element = (key * 10) ]. 
+    "
+!
+
 keysAndValuesDo:aTwoArgBlock
     "evaluate the argument, aBlock for every element in the collection,
      passing both index and element as arguments."
@@ -8832,11 +8848,11 @@
 !SequenceableCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SequenceableCollection.st,v 1.329 2013-01-21 13:44:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SequenceableCollection.st,v 1.330 2013-01-23 17:40:11 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/SequenceableCollection.st,v 1.329 2013-01-21 13:44:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SequenceableCollection.st,v 1.330 2013-01-23 17:40:11 cg Exp $'
 ! !