Class Integer
back
addToFraction: arg
^ arg + (Fraction top: self)