--- a/LimitedPrecisionReal.st	Thu Jun 02 13:20:08 1994 +0200
+++ b/LimitedPrecisionReal.st	Thu Jun 02 13:21:56 1994 +0200
@@ -22,7 +22,7 @@
 COPYRIGHT (c) 1994 by Claus Gittinger
               All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/LimitedPrecisionReal.st,v 1.1 1994-02-25 12:59:09 claus Exp $
+$Header: /cvs/stx/stx/libbasic/LimitedPrecisionReal.st,v 1.2 1994-06-02 11:20:40 claus Exp $
 
 Abstract superclass for single and double (and maybe more) precision real numbers (i.e. Float and Double).
 '!
@@ -228,12 +228,12 @@
 
     sign := self sign.
     v := self abs.
-    (v >= 10) ifTrue:[
+    (v >= 10.0) ifTrue:[
         l := (v / 10.0) asInteger * 10
     ] ifFalse:[
         l := 0
     ].
-    v := v - ((v / 10.0) floor * 10.0) floor.
+    v := v - ((v / 10.0) floor * 10) floor.
     l := l + v truncated.
     ^ l * sign