diff --git a/scheme/cyclone/optimize-cps.sld b/scheme/cyclone/optimize-cps.sld
index 98dcf43c..c7ac8a3c 100644
--- a/scheme/cyclone/optimize-cps.sld
+++ b/scheme/cyclone/optimize-cps.sld
@@ -99,7 +99,7 @@
              (for-each
                (lambda (expr)
                  (analyze expr id))
-               (ast:lambda-body))))
+               (ast:lambda-body exp))))
           ((ref? exp)
            (let ((var (adb:get/default exp (adb:make-var))))
             (adbv:set-ref-by! var (cons lid (adbv:ref-by var)))