diff --git a/src-3.0/GF/Compile/Optimize.hs b/src-3.0/GF/Compile/Optimize.hs
index d2b303bc6..83cbeb57a 100644
--- a/src-3.0/GF/Compile/Optimize.hs
+++ b/src-3.0/GF/Compile/Optimize.hs
@@ -128,7 +128,7 @@ evalCncInfo opts gr cnc abs (c,info) = do
 
     return (c, CncCat ptyp pde' ppr')
 
-  CncFun (mt@(Just (_,ty@(cont,val)))) pde ppr -> 
+  CncFun (mt@(Just (_,ty@(cont,val)))) pde ppr -> --trace (prt c) $
        eIn ("linearization in type" +++ prt (mkProd (cont,val,[])) ++++ "of function") $ do
     pde' <- case pde of
       Yes de -> do