--- a/Float.st	Thu Oct 30 11:23:07 2003 +0100
+++ b/Float.st	Thu Oct 30 16:03:31 2003 +0100
@@ -762,11 +762,9 @@
 
     OBJ newFloat;
     double val =__floatVal(self);
-    double rslt;
 
     if (val < 0.0) {
-        rslt = -val;
-        __qMKFLOAT(newFloat, rslt);
+        __qMKFLOAT(newFloat, -val);
         RETURN ( newFloat );
     }
     RETURN (self);
@@ -2475,7 +2473,7 @@
 !Float class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.149 2003-07-07 15:56:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.150 2003-10-30 15:03:31 stefan Exp $'
 ! !
 
 Float initialize!