diff --git a/code/liebler/implementation.lisp b/code/liebler/implementation.lisp
index f96ae9f1..2d2224a7 100644
--- a/code/liebler/implementation.lisp
+++ b/code/liebler/implementation.lisp
@@ -31,11 +31,11 @@
                (when (> q ,(+ max-exponent
                               (quaviver.math:ceiling-log-expt 2 10 1)))
                  (quaviver::integer-float-overflow
-                  ,client ',result-type 10 significand exponent sign))
+                  ,client ',result-type 10 ,significand ,exponent ,sign))
                (when (< q ,(- min-exponent
                               (quaviver.math:ceiling-log-expt 2 10 1)))
                  (quaviver::integer-float-underflow
-                  ,client ',result-type 10 significand exponent sign))
+                  ,client ',result-type 10 ,significand ,exponent ,sign))
                (setf ,significand (quaviver.math:round-to-odd
                                    ,arithmetic-size
                                    (ash ,significand shift)