diff --git a/module/language/tree-il/compile-cps.scm b/module/language/tree-il/compile-cps.scm
index 707e08b10..6202e1230 100644
--- a/module/language/tree-il/compile-cps.scm
+++ b/module/language/tree-il/compile-cps.scm
@@ -347,9 +347,7 @@
                      k subst)
             (convert-args args
               (lambda (args)
-                (if (eq? name 'values)
-                    (build-cps-term ($continue k ($values args)))
-                    (build-cps-term ($continue k ($primcall name args))))))))))
+                (build-cps-term ($continue k ($primcall name args)))))))))
 
     ;; Prompts with inline handlers.
     (($ <prompt> src escape-only? tag body