Hi.

Fraction implements #<, but not #>. This results in super > and so... for 
instance, what should take 15ms took about 2 minutes! Not funny at all! Check 
implementing #> like, for instance, this:

#> aNumber
	^(self < aNumber or: [self = aNumber]) not

The methods on #< and #= will take care of adapting and so.

Andres.