--- a/ShortFloat.st	Thu Aug 19 02:17:59 1999 +0200
+++ b/ShortFloat.st	Thu Aug 19 03:20:08 1999 +0200
@@ -481,6 +481,12 @@
     ^ self
 !
 
+asTrueFraction
+    "return a fraction with same value as the receiver"
+
+    ^ self asFloat asTrueFraction
+!
+
 generality
     "return the generality value - see ArithmeticValue>>retry:coercing:"
 
@@ -958,5 +964,5 @@
 !ShortFloat class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.51 1999-08-12 08:58:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.52 1999-08-19 01:19:54 cg Exp $'
 ! !