--- a/ArithmeticValue.st	Mon Jun 16 17:40:47 2003 +0200
+++ b/ArithmeticValue.st	Mon Jun 16 17:46:13 2003 +0200
@@ -404,6 +404,12 @@
     ^ self truncated
 !
 
+asLimitedPrecisionReal
+    "return a float of any precision with same value"
+
+   ^ self asFloat
+!
+
 asLongFloat
     "return a longFloat with same value"
 
@@ -1117,7 +1123,7 @@
 !ArithmeticValue class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.47 2003-06-16 09:14:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.48 2003-06-16 15:46:13 cg Exp $'
 ! !
 
 ArithmeticValue initialize!