The Trunk: Collections-ul.563.mcz

Levente Uzonyi uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-ul.563.mcz

==================== Summary ====================

Name: Collections-ul.563
Author: ul
Time: 20 January 2014, 5:14:54.483 pm
UUID: 33f6afa6-4437-4c9b-8844-c445de6b661c
Ancestors: Collections-ul.562

Use the intended fix instead ofanother one for SequenceableCollection class>>new:streamContents:.

=============== Diff against Collections-ul.562 ===============

Item was changed:
  ----- Method: SequenceableCollection class>>new:streamContents: (in category 'stream creation') -----
  new: newSize streamContents: blockWithArg
 
  | stream originalContents |
  stream := WriteStream on: (self new: newSize).
  blockWithArg value: stream.
  originalContents := stream originalContents.
+ originalContents size =  stream position
- (originalContents size = newSize and: [ stream position = newSize ])
  ifTrue: [ ^originalContents ]
  ifFalse: [ ^stream contents ]!