--- a/SequenceableCollection.st	Thu Jun 30 17:40:16 2011 +0200
+++ b/SequenceableCollection.st	Thu Jun 30 17:40:20 2011 +0200
@@ -4654,15 +4654,16 @@
     "evaluate the argument, aBlock for successive elements from
      each the receiver and the argument, aSequenceableCollection.
      The second argument, aBlock must be a two-argument block.
-     The collection argument must implement access via a numeric key and
-     the sizes must be the same."
+     The collection argument must implement access via a numeric key 
+     and (new!!) the sizes must be the same."
 
     |stop  "{ Class: SmallInteger }" |
 
     stop := self size.
     aSequenceableCollection size == stop ifFalse:[
-        ^ self error:'collections must be of the same size'.
+        NotEnoughElementsSignal raiseRequestErrorString:'collections must be of the same size'.
     ].
+
     1 to:stop do:[:index |
         aTwoArgBlock value:(self at:index) value:(aSequenceableCollection at:index).
     ]
@@ -4673,7 +4674,7 @@
         do:[:el1 :el2 | Transcript show:el1; space; showCR:el2]
     "
 
-    "Modified: / 30-06-2011 / 12:40:04 / cg"
+    "Modified (Format): / 30-06-2011 / 17:39:59 / cg"
 !
 
 with:aSequenceableCollection doWithIndex:aThreeArgBlock
@@ -7897,7 +7898,7 @@
 !SequenceableCollection class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/SequenceableCollection.st,v 1.305 2011-06-30 10:41:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SequenceableCollection.st,v 1.306 2011-06-30 15:40:20 cg Exp $'
 ! !
 
 SequenceableCollection initialize!