diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld
index 680d877b..28d53216 100644
--- a/scheme/cyclone/cps-optimizations.sld
+++ b/scheme/cyclone/cps-optimizations.sld
@@ -738,8 +738,8 @@
         ; Core forms:
         ((ast:lambda? exp)
          (let* ((id (ast:lambda-id exp))
-                (fnc (adb:get id)))
-           (if (adbf:simple fnc)
+                (fnc (adb:get/default id #f)))
+           (if (and fnc (adbf:simple fnc))
                (opt:contract (caar (ast:lambda-body exp))) ;; Optimize-out the lambda
                (ast:%make-lambda
                  (ast:lambda-id exp)