I copy and pasted this mail to the bug tracker (took 1 second):

https://pharo.fogbugz.com/f/cases/12642/bug-in-NumberParser-when-reading-a-number-with-fraction-part

On 14 Jan 2014, at 03:48, Nicolas Cellier <nicolas.cellier.aka.nice@gmail.com> wrote:

No time to open a bug, but this should better be fixed before 3.0 release

---------- Forwarded message ----------
From: <commits@source.squeak.org>
Date: 2014/1/14
Subject: [squeak-dev] The Trunk: Kernel-nice.831.mcz
To: squeak-dev@lists.squeakfoundation.org, packages@lists.squeakfoundation.org


Nicolas Cellier uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-nice.831.mcz

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

Name: Kernel-nice.831
Author: nice
Time: 14 January 2014, 3:43:29.851 am
UUID: 5c62dca4-bf8e-4330-9cb1-9cd24047aac6
Ancestors: Kernel-nice.830

1) Fix awfull bug in NumberParser when reading a number with fraction part
(the trailing digits of the fraction might be skipped when there's many of them because of incorrect update of lastNonZero position)

This made this test fail:
self assert: (Float readFrom: (((1<<1075) reciprocal + (1<<1400) reciprocal) printShowingDecimalPlaces: 2000)) = Float fmin.

I just wanted to check NumberParser w.r.t. a former bug of dtoa, but it failed for different reasons http://www.exploringbinary.com/gays-strtod-returns-zero-for-inputs-just-above-2-1075/

2) Classify some as yet unclassified (or miss-classified)

=============== Diff against Kernel-nice.830 ===============

Item was changed:
+ ----- Method: IllegalResumeAttempt>>defaultAction (in category 'handling') -----
- ----- Method: IllegalResumeAttempt>>defaultAction (in category 'comment') -----
� defaultAction
� � � � "No one has handled this error, but now give them a chance to decide how to debug it. �If none handle this either then open debugger (see UnhandedError-defaultAction)"

� � � � UnhandledError signalForException: self!

Item was changed:
+ ----- Method: IllegalResumeAttempt>>isResumable (in category 'handling') -----
- ----- Method: IllegalResumeAttempt>>isResumable (in category 'comment') -----
� isResumable

� � � � ^ false!

Item was changed:
+ ----- Method: InMidstOfFileinNotification>>defaultAction (in category 'handling') -----
- ----- Method: InMidstOfFileinNotification>>defaultAction (in category 'as yet unclassified') -----
� defaultAction

� � � � self resume: false!

Item was changed:
� ----- Method: NumberParser>>nextLargeIntegerBase:nPackets: (in category 'parsing-large int') -----
� nextLargeIntegerBase: aRadix nPackets: nPackets
� � � � "Form a Large integer with incoming digits from sourceStream.
� � � � Return this integer, or zero if no digits found.
� � � � Stop reading when no more digits or when nPackets elementary LargeInteger have been encountered.
� � � � Count the number of digits and the lastNonZero digit and store them in instVar"

+ � � � | high nDigitsHigh lastNonZeroHigh low nDigitsLow halfPackets |
- � � � | high nDigitsHigh low nDigitsLow halfPackets |
� � � � halfPackets := nPackets bitShift: -1.
� � � � halfPackets = 0 ifTrue: [^self nextElementaryLargeIntegerBase: aRadix].
� � � � high := self nextLargeIntegerBase: aRadix nPackets: halfPackets.
� � � � high isLarge ifFalse: [^high].
� � � � nDigitsHigh := nDigits.
+ � � � lastNonZeroHigh := lastNonZero.
� � � � low := self nextLargeIntegerBase: aRadix nPackets: halfPackets.
� � � � nDigitsLow := nDigits.
� � � � nDigits := nDigitsHigh + nDigitsLow.
+ � � � lastNonZero := lastNonZero = 0
+ � � � � � � � ifTrue: [lastNonZeroHigh]
+ � � � � � � � ifFalse: [lastNonZero + nDigitsHigh].
- � � � lastNonZero = 0 ifFalse: [lastNonZero := lastNonZero + nDigitsHigh].
� � � � ^high * (aRadix raisedToInteger: nDigitsLow) + low!