Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.286.mcz
==================== Summary ====================
Name: Kernel-nice.286 Author: nice Time: 31 October 2009, 11:49:19 am UUID: 8990ba20-7244-49e7-b79e-12e397b4a962 Ancestors: Kernel-nice.285
My last fix conflicted with http://bugs.squeak.org/view.php?id=6695 Float storeStringBase: does not store the radix
Merge the two fixes
=============== Diff against Kernel-nice.285 ===============
Item was changed: ----- Method: Float>>storeOn:base: (in category 'printing') ----- storeOn: aStream base: base "Print the Number exactly so it can be interpreted back unchanged" self isFinite + ifTrue: [self sign = -1 ifTrue: [aStream nextPutAll: '-']. + base = 10 ifFalse: [aStream print: base; nextPut: $r]. + self = 0.0 + ifTrue: [aStream nextPutAll: '0.0'] + ifFalse: [self abs absPrintExactlyOn: aStream base: base]] - ifTrue: [self > 0 - ifTrue: [self absPrintExactlyOn: aStream base: base] - ifFalse: [self sign = -1 - ifTrue: [aStream nextPutAll: '-']. - self = 0.0 - ifTrue: [aStream nextPutAll: '0.0'] - ifFalse: [self negated absPrintExactlyOn: aStream base: base]]] ifFalse: [self isNaN ifTrue: [aStream nextPutAll: 'Float nan'] ifFalse: [self > 0.0 ifTrue: [aStream nextPutAll: 'Float infinity'] ifFalse: [aStream nextPutAll: 'Float infinity negated']]]!