diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld
index 26c2d3cb..ec266c08 100644
--- a/scheme/cyclone/cps-optimizations.sld
+++ b/scheme/cyclone/cps-optimizations.sld
@@ -438,7 +438,8 @@
         ; Application:
         ((app? exp)
          (cond
-          ((ast:lambda? exp)
+          ((and (ast:lambda? (car exp))
+                (all-prim-calls? (cdr exp)))
            'TODO)
           (else
             (map contract-prims exp))))