diff --git a/code/float.lisp b/code/float.lisp
index 69933d0..8817268 100644
--- a/code/float.lisp
+++ b/code/float.lisp
@@ -107,4 +107,7 @@
                                              :fractional-marker #\.
                                              :fractional-position 1)
                       (write-exponent-marker value stream)
-                      (print-integer client (1- exponent) 10 nil stream)))))))))
+                      (decf exponent)
+                      (when (minusp exponent)
+                        (write-char #\- stream))
+                      (quaviver:write-digits 10 (abs exponent) stream)))))))))