--- a/LimitedPrecisionReal.st	Mon Mar 14 18:42:55 2016 +0100
+++ b/LimitedPrecisionReal.st	Mon Mar 14 18:43:06 2016 +0100
@@ -458,6 +458,18 @@
     "
 !
 
+maxSmallInteger
+    "answer the largest possible SmallIntger value as instance of myself"
+
+    ^ self fromInteger:SmallInteger maxVal.
+
+    "
+       Float maxSmallInteger.
+       LongFloat maxSmallInteger.
+       ShortFloat maxSmallInteger.
+    "
+!
+
 negativeInfinity
     "return a float representing negative infinity"
 
@@ -1167,6 +1179,7 @@
 ! !
 
 
+
 !LimitedPrecisionReal methodsFor:'printing & storing'!
 
 printOn:aStream
@@ -1237,6 +1250,7 @@
    ^ 0
 ! !
 
+
 !LimitedPrecisionReal methodsFor:'testing'!
 
 isFinite