--- a/LimitedPrecisionReal.st	Sat Mar 06 09:05:00 2010 +0100
+++ b/LimitedPrecisionReal.st	Sat Mar 06 11:04:54 2010 +0100
@@ -535,13 +535,12 @@
         ^ self * (two raisedToInteger: anInteger).
     ]
 
-
-
-"
-    (1 asShortFloat timesTwoPower: 3) class = ShortFloat.
-    (1 asLongFloat timesTwoPower: 1024).
-    (1 asFloat timesTwoPower: -1024) timesTwoPower: 1024.
-"
+    "
+     (1 asShortFloat timesTwoPower: 3) class = ShortFloat.
+     (1 asLongFloat timesTwoPower: 1024).
+     (1 asFloat timesTwoPower: -1024) timesTwoPower: 1024.
+     (2.0 timesTwoPower: -150) timesTwoPower: 150
+    "
 ! !
 
 !LimitedPrecisionReal methodsFor:'coercing & converting'!
@@ -1174,11 +1173,11 @@
 !LimitedPrecisionReal class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/LimitedPrecisionReal.st,v 1.70 2009-10-04 20:08:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LimitedPrecisionReal.st,v 1.71 2010-03-06 10:04:54 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/LimitedPrecisionReal.st,v 1.70 2009-10-04 20:08:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LimitedPrecisionReal.st,v 1.71 2010-03-06 10:04:54 cg Exp $'
 ! !
 
 LimitedPrecisionReal initialize!