diff --git a/module/language/cps/optimize.scm b/module/language/cps/optimize.scm
index cc1d95147..b1cbc89a7 100644
--- a/module/language/cps/optimize.scm
+++ b/module/language/cps/optimize.scm
@@ -116,6 +116,7 @@
 
 (define (cps-default-optimization-options)
   (list ;; #:split-rec? #t
+   #:simplify? #t
    #:eliminate-dead-code? #t
    #:prune-top-level-scopes? #t
    #:contify? #t