--- a/Collection.st	Wed Dec 21 15:58:10 2011 +0100
+++ b/Collection.st	Wed Dec 21 15:59:45 2011 +0100
@@ -3896,7 +3896,7 @@
 allElementsHaveTheSameValue
     "true if all elements of the receiver have the same value"
 
-    ^ self sameValueFor:[:el | el]
+    ^ self sameValuesComputedBy:[:el | el]
 
     "
      #(1 2 3 5 6 7 8 9) allElementsHaveTheSameValue
@@ -4134,7 +4134,7 @@
     "
 !
 
-sameValueFor:aBlock
+sameValuesComputedBy:aBlock
     "true if aBlock answers the same value for all elements of the receiver"
 
     |first valueForFirstElement|
@@ -4153,13 +4153,13 @@
     ^ true
 
     "
-     #(1 2 3 5 6 7 8 9) sameValueFor:[:el | el even]
-     #(1 1 1 1 1 1) sameValueFor:[:el | el even]
-     #(1 1 1.0 1.0 1) sameValueFor:[:el | el even]
-     #(1 3 3 15 1) sameValueFor:[:el | el even]
-    "
-
-    "Created: / 21-12-2011 / 15:57:08 / cg"
+     #(1 2 3 5 6 7 8 9) sameValuesComputedBy:[:el | el even]
+     #(1 1 1 1 1 1) sameValuesComputedBy:[:el | el even]
+     #(1 1 1.0 1.0 1) sameValuesComputedBy:[:el | el even]
+     #(1 3 3 15 1) sameValuesComputedBy:[:el | el even]
+    "
+
+    "Created: / 21-12-2011 / 15:59:19 / cg"
 ! !
 
 !Collection methodsFor:'tracing'!
@@ -4182,11 +4182,11 @@
 !Collection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.269 2011-12-21 14:58:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.270 2011-12-21 14:59:45 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.269 2011-12-21 14:58:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.270 2011-12-21 14:59:45 cg Exp $'
 ! !
 
 Collection initialize!