--- a/ArithmeticValue.st	Fri Sep 07 13:42:33 2001 +0200
+++ b/ArithmeticValue.st	Fri Sep 07 13:45:40 2001 +0200
@@ -460,6 +460,19 @@
     "Created: / 7.9.2001 / 13:39:31 / cg"
 !
 
+asScaledDecimal:scale
+    "return a fixedPoint approximating the receivers value"
+
+    ^ self asFixedPoint:scale
+
+    "
+     1.234 asScaledDecimal:2
+    "
+
+    "Created: / 7.9.2001 / 13:46:26 / cg"
+    "Modified: / 7.9.2001 / 13:46:44 / cg"
+!
+
 asShortFloat
     "return a shortFloat with same value"
 
@@ -988,6 +1001,6 @@
 !ArithmeticValue class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.38 2001-09-07 11:42:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.39 2001-09-07 11:45:40 cg Exp $'
 ! !
 ArithmeticValue initialize!