Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.963.mcz
==================== Summary ====================
Name: Kernel-nice.963 Author: nice Time: 31 October 2015, 11:48:47.351 pm UUID: 251411b2-0110-4d17-8469-5b3aef45ebee Ancestors: Kernel-nice.962
Let's correct my fresh DataStream correction... The ugly 37777777 pattern may happen in octal, but 50 birthdays is well too young for practicing such sport correctly ;)
<rant> if the MC commit window would not try and reformat the code (especially rewrite hexadecimal constants in decimal) - that would have given me one more chance to correct before committing... </rant>
=============== Diff against Kernel-nice.962 ===============
Item was changed: ----- Method: SmallInteger>>objectForDataStream: (in category 'objects from disk') ----- objectForDataStream: refStrm "In a 64bits sput VM, we may have to fake 32bits SmallInteger for compatibility"
| large | + self > 16r3FFFFFFF ifTrue: [ - self > 16r37777777 ifTrue: [ large := LargePositiveInteger new: self digitLength neg: false. 1 to: self digitLength do: [:i | large digitAt: i put: (self digitAt: i)]. ^large]. self < -16r40000000 ifTrue: [ large := LargeNegativeInteger new: self digitLength neg: true. 1 to: self digitLength do: [:i | large digitAt: i put: (self digitAt: i)]. ^large]. ^ self !