diff --git a/math-lib/math/private/flonum/flonum-bits.rkt b/math-lib/math/private/flonum/flonum-bits.rkt
index 7503359..2944c5f 100644
--- a/math-lib/math/private/flonum/flonum-bits.rkt
+++ b/math-lib/math/private/flonum/flonum-bits.rkt
@@ -102,10 +102,9 @@
 (: flonum->chunks (-> Flonum (Values Integer Integer)))
 (define (flonum->chunks x)
   (define neg? (fl< x 0.0))
-  (define ax (flabs x))
   (if neg?
-      (values (- (flbit-field ax 0 32)) (- (flbit-field ax 32 64)))
-      (values (flbit-field ax 0 32) (flbit-field ax 32 64))))
+      (values (- (flbit-field x 0 32)) (- (flbit-field x 32 63)))
+      (values (flbit-field x 0 32) (flbit-field x 32 63))))
 
 (: flonums-between (Flonum Flonum -> Integer))
 (define (flonums-between x y)