--- a/ShortFloat.st	Wed Mar 25 18:17:19 2015 +0100
+++ b/ShortFloat.st	Wed Mar 25 18:17:35 2015 +0100
@@ -479,6 +479,12 @@
     ^ Float e asShortFloat
 !
 
+emax
+    "Answer the maximum exponent for this representation."
+
+    ^127
+!
+
 pi
     "return the constant pi as ShortFloat"
 
@@ -2042,11 +2048,11 @@
 !ShortFloat class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.137 2015-03-25 15:41:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.138 2015-03-25 17:17:35 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.137 2015-03-25 15:41:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.138 2015-03-25 17:17:35 cg Exp $'
 ! !