[Pharo-project] Problem with number parsing in Shout...help needed!

If you load Shout-lr.84 and ShoutTests-tween.9 from http://www.squeaksource.com/shout and run the testNumbers it will in: s := 'x 16r-d'. types := self tokenTypesIn: s. tokens := self tokensIn: s. self assert: types = #(patternUnary number unary). self assert: tokens = #('x' '16r-' 'd'). because types is #(#patternUnary #number) and in addition, tokens is #('x' '16r-d') I have no idea about this. Does someone know how to fix it? Thanks mariano