diff --git a/module/language/cps/dce.scm b/module/language/cps/dce.scm
index 0727675f3..d896b3664 100644
--- a/module/language/cps/dce.scm
+++ b/module/language/cps/dce.scm
@@ -206,7 +206,9 @@ sites."
                   (($ $primcall
                       (or 'vector-set! 'vector-set!/immediate
                           'set-car! 'set-cdr!
-                          'box-set!) #f
+                          'box-set!
+                          'scm-set! 'scm-set!/tag 'scm-set!/immediate
+                          'word-set! 'word-set!/immediate) _
                       (obj . _))
                    (or (var-live? obj live-vars)
                        (not (intset-ref known-allocations obj))))