diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld
index 9f1e6e64..e8eae029 100644
--- a/scheme/cyclone/cps-optimizations.sld
+++ b/scheme/cyclone/cps-optimizations.sld
@@ -2035,7 +2035,7 @@
   (define (prim-call/cont? exp)
     (let ((result (and (app? exp)
                        (prim:cont? (car exp)))))
-      (trace:info `(prim-call/cont? ,exp ,result))
+      ;(trace:info `(prim-call/cont? ,exp ,result))
       result))
 
   (define (found exp . sym)