diff --git a/module/language/cps/utils.scm b/module/language/cps/utils.scm
index 7a9f3b34e..b04c35dc3 100644
--- a/module/language/cps/utils.scm
+++ b/module/language/cps/utils.scm
@@ -404,6 +404,9 @@ by a label, respectively."
     ((untag-fixnum
       assume-s64
       scm->s64 load-s64 u64->s64
+      sadd ssub smul
+      sadd/immediate ssub/immediate smul/immediate
+      slsh slsh/immediate
       srsh srsh/immediate
       s8-ref s16-ref s32-ref s64-ref)
      '(s64))