--- a/SequenceableCollection.st	Wed Jan 14 23:12:52 2009 +0100
+++ b/SequenceableCollection.st	Thu Jan 15 22:13:48 2009 +0100
@@ -1290,7 +1290,10 @@
 
 permutationsDo: aBlock
     "Repeatly evaluate aBlock with a single copy of the receiver. Reorder the copy
-     so that aBlock is presented all (self size factorial) possible permutations."
+     so that aBlock is presented all (self size factorial) possible permutations.
+     Notice, that the swapping occur within a buffered copy, so the block will receive
+     the identical same collection (bit with different contents) every time.
+     This non-functional kludge was done for performance."
 
     self shallowCopy permutationsStartingAt:1 do:aBlock
 
@@ -5296,7 +5299,6 @@
     "Created: 14.2.1997 / 16:13:03 / cg"
 ! !
 
-
 !SequenceableCollection methodsFor:'searching'!
 
 detect:aBlock startingAt:startIndex
@@ -7184,7 +7186,7 @@
 !SequenceableCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SequenceableCollection.st,v 1.262 2009-01-12 22:03:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SequenceableCollection.st,v 1.263 2009-01-15 21:13:48 cg Exp $'
 ! !
 
 SequenceableCollection initialize!