--- a/LimitedPrecisionReal.st	Wed Mar 25 16:41:55 2015 +0100
+++ b/LimitedPrecisionReal.st	Wed Mar 25 18:17:19 2015 +0100
@@ -392,9 +392,12 @@
 emax
     "return the largest exponent"
 
-    self subclassResponsibility
+    ^ (1 << (self numBitsInExponent-1)) - 1
 
-    "Created: / 7.9.2001 / 14:05:28 / cg"
+    "
+     Float emax
+     ShortFloat emax
+    "
 !
 
 emin
@@ -1075,6 +1078,7 @@
     "Modified: 17.4.1996 / 13:34:50 / cg"
 ! !
 
+
 !LimitedPrecisionReal methodsFor:'copying'!
 
 deepCopy
@@ -1155,7 +1159,6 @@
 ! !
 
 
-
 !LimitedPrecisionReal methodsFor:'printing & storing'!
 
 printOn:aStream
@@ -1226,7 +1229,6 @@
    ^ 0
 ! !
 
-
 !LimitedPrecisionReal methodsFor:'testing'!
 
 isFinite
@@ -1370,11 +1372,11 @@
 !LimitedPrecisionReal class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/LimitedPrecisionReal.st,v 1.82 2015-02-03 14:15:52 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LimitedPrecisionReal.st,v 1.83 2015-03-25 17:17:19 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/LimitedPrecisionReal.st,v 1.82 2015-02-03 14:15:52 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LimitedPrecisionReal.st,v 1.83 2015-03-25 17:17:19 cg Exp $'
 ! !