diff --git a/cyclone.scm b/cyclone.scm
index ba708900..d268d4c1 100644
--- a/cyclone.scm
+++ b/cyclone.scm
@@ -211,7 +211,12 @@
       ;; phase 5 - common subexpression elimination
       ;; TODO: re-run phases again until program is stable (less than n opts made, more than r rounds performed, etc)
       ;; END CPS optimization
-
+      (set! input-program
+        (map
+          cps-optimize-01
+          input-program))
+      (trace:info "---------------- after cps optimizations:")
+      (trace:info input-program) ;pretty-print
     
       (set! input-program
         (map
diff --git a/scheme/cyclone/transforms.sld b/scheme/cyclone/transforms.sld
index 9d94be7c..668f64e7 100644
--- a/scheme/cyclone/transforms.sld
+++ b/scheme/cyclone/transforms.sld
@@ -1458,10 +1458,7 @@
              ast)
             (else
               (cps ast '%halt)))))
-;    ast-cps))
-;; TODO: use for temporary testing of optimizations
-;; eventually will want to call this explicitly from cyclone.scm
-    (cps-optimize-01 ast-cps)))
+    ast-cps))
 
 ;; CPS optimizations