Class SmallInt

subtractFromSmallInt: arg | r |

   " must check for overflow "

   r <- <16 arg self>.

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

  ^ r