diff --git a/scheme/cyclone/transforms.sld b/scheme/cyclone/transforms.sld
index f48f526f..9d94be7c 100644
--- a/scheme/cyclone/transforms.sld
+++ b/scheme/cyclone/transforms.sld
@@ -1458,9 +1458,10 @@
              ast)
             (else
               (cps ast '%halt)))))
-    ast-cps))
+;    ast-cps))
 ;; TODO: use for temporary testing of optimizations
-;    (cps-optimize-01 ast-cps)))
+;; eventually will want to call this explicitly from cyclone.scm
+    (cps-optimize-01 ast-cps)))
 
 ;; CPS optimizations
 
@@ -1469,13 +1470,13 @@
 (define (cps-optimize-01 exp)
   (define (opt-lambda exp)
     (let ((body (car (lambda->exp exp)))) ;; Single expr after CPS
-      (trace:error `(DEBUG 
-        ,exp
-        ,body
-        ,(if (and (pair? body) (app? body) (lambda? (car body)))
-          (list (app->args body)
-                (lambda->formals exp))
-          #f)))
+      ;(trace:error `(DEBUG 
+      ;  ,exp
+      ;  ,body
+      ;  ,(if (and (pair? body) (app? body) (lambda? (car body)))
+      ;    (list (app->args body)
+      ;          (lambda->formals exp))
+      ;    #f)))
       (cond
         ;; Does the function just call its continuation?
         ((and (pair? body)