diff --git a/scheme/cyclone/optimize-cps.sld b/scheme/cyclone/optimize-cps.sld
index ed697e5b..605538f9 100644
--- a/scheme/cyclone/optimize-cps.sld
+++ b/scheme/cyclone/optimize-cps.sld
@@ -148,7 +148,9 @@
       (cond
         ; Core forms:
         ((ast:lambda? exp)
-         (let ((id (ast:lambda-id exp)))
+         (let* ((id (ast:lambda-id exp))
+                (fnc (adb:get id)))
+           (adbf:set-simple! (simple-lambda? exp))
            (for-each
              (lambda (expr)
                (analyze2 expr))