--- a/Number.st	Sat Jun 21 12:53:44 2003 +0200
+++ b/Number.st	Thu Jun 26 16:39:23 2003 +0200
@@ -183,7 +183,11 @@
                                 denominator:denom
                                 scale:mantissaAndScale last.
                 ].
-            ]
+            ] ifFalse:[
+                value isLimitedPrecisionReal ifTrue:[
+                    value := value asFloat.
+                ]
+            ].
         ].
         negative ifTrue:[
             value := value negated
@@ -1609,5 +1613,5 @@
 !Number class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Number.st,v 1.85 2003-06-21 10:44:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Number.st,v 1.86 2003-06-26 14:39:23 cg Exp $'
 ! !