diff --git a/scheme/cyclone/optimize-cps.sld b/scheme/cyclone/optimize-cps.sld
index 605538f9..0a91a2ec 100644
--- a/scheme/cyclone/optimize-cps.sld
+++ b/scheme/cyclone/optimize-cps.sld
@@ -150,7 +150,8 @@
         ((ast:lambda? exp)
          (let* ((id (ast:lambda-id exp))
                 (fnc (adb:get id)))
-           (adbf:set-simple! (simple-lambda? exp))
+;(trace:error `(adb:get ,id ,fnc))
+           (adbf:set-simple! fnc (simple-lambda? exp))
            (for-each
              (lambda (expr)
                (analyze2 expr))
@@ -211,11 +212,18 @@
       (let ((body (ast:lambda-body ast))
             (formals (ast:lambda-formals->list ast))
             (id (ast:lambda-id ast)))
+;(trace:error `(simple-lambda? ,id ,formals 
+;,(and (pair? body)
+;     (app? body)
+;     (ast:lambda? (car body)))
+;,(length formals)
+;,body))
         (and (pair? body)
              (app? body)
              (ast:lambda? (car body))
              (> (length formals) 0)
              (equal? (app->args body)
                      formals)
-             (not (any-nonlocal-refs? id formals)))))
+             (not (any-nonlocal-refs? id formals))
+    )))
 ))