diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld
index 086dd52b..2c0fedc0 100644
--- a/scheme/cyclone/cps-optimizations.sld
+++ b/scheme/cyclone/cps-optimizations.sld
@@ -1085,6 +1085,11 @@
             )) ;;
             ;; Lambda with a parameter that is never used; sequence code instead to avoid lambda
             ((and (ast:lambda? (car exp))
+                  (every
+                    (lambda (arg)
+                      (or (not (prim-call? arg))
+                          (not (prim:cont? (car arg)))))
+                    (cdr exp))
                   (every
                     (lambda (param)
                       (with-var param (lambda (var)