I was just looking at the method
gcd: anInteger "See SmallInteger (Integer) | gcd:" | n m | n := self. m := anInteger. [n = 0] whileFalse: [n := m \ (m := n)]. ^ m abs
the best thing i can think to do would be ......would this work
larger: anInteger | n m | n := self. m := anInteger. n > m [^n]. m>n [^m].