diff --git a/module/language/cps/slot-allocation.scm b/module/language/cps/slot-allocation.scm
index 6fc2a5399..8d865d739 100644
--- a/module/language/cps/slot-allocation.scm
+++ b/module/language/cps/slot-allocation.scm
@@ -790,7 +790,8 @@ are comparable with eqv?.  A tmp slot may be used."
              (($ $values (arg))
               (intmap-add representations var
                           (intmap-ref representations arg)))
-             (($ $primcall (or 'scm->f64 'bv-f32-ref 'bv-f64-ref))
+             (($ $primcall (or 'scm->f64 'bv-f32-ref 'bv-f64-ref
+                               'fadd 'fsub 'fmul 'fdiv))
               (intmap-add representations var 'f64))
              (_
               (intmap-add representations var 'scm))))