Class SmallInt

multBySmallInt: arg | r values |

   "must check for overflow "

   r <- <15 arg self>.

   r isNil ifTrue: [ r <- arg asLargeInteger * self asLargeInteger ].

   ^ r