diff --git a/module/language/cps/dce.scm b/module/language/cps/dce.scm
index 6c61051d9..6128134e5 100644
--- a/module/language/cps/dce.scm
+++ b/module/language/cps/dce.scm
@@ -181,7 +181,7 @@
           (hashq-ref live-vars sym))
         (define (make-adaptor name k defs)
           (let* ((names (map (lambda (_) 'tmp) defs))
-                 (syms (map (lambda (_) (gensym "tmp")) defs))
+                 (syms (map (lambda (_) (fresh-var)) defs))
                  (live (filter-map (lambda (def sym)
                                      (and (value-live? def)
                                           sym))