The fragment
....
	[len = 0 ifTrue: [^ 0 asSmallIntegerObj].
	(self digitOf: aLargePositiveInteger at: len)
		= 0]
		whileTrue: [len _ len - 1].
....
will be compiled to:
....
	do {
		if (len == 0) {
			return interpreterProxy->integerObjectOf(0);
		}
	} while((digitOfat(aLargePositiveInteger, len)) == 0);
....


I don't know if to declare this as a bug or a limited capability of the
compiler...

Greetings,

Stephan
-- 
Stephan Rudlof (sr at evolgo.de)
   "Genius doesn't work on an assembly line basis.
    You can't simply say, 'Today I will be brilliant.'"
    -- Kirk, "The Ultimate Computer", stardate 4731.3