diff --git a/scheme/cyclone/optimize-cps.sld b/scheme/cyclone/optimize-cps.sld
index 66e0eb2f..10d67aa7 100644
--- a/scheme/cyclone/optimize-cps.sld
+++ b/scheme/cyclone/optimize-cps.sld
@@ -103,6 +103,10 @@
                                 ,(analyze (if->else exp) lid)))
           
           ; Application:
+          ((app? exp)
+           (map (lambda (e)
+                  (analyze-cps e lid))
+                exp))
 ;TODO:          ((app? exp)      (map (lambda (e) (wrap-mutables e globals)) exp))
 
           ; Nothing to analyze for these?