diff --git a/compiler/cmm/CmmContFlowOpt.hs b/compiler/cmm/CmmContFlowOpt.hs
index 0019213829dbc5749b0392836f3540ad546e6d82..73ce57e93f1deecb6837fd3b22a884bb074ba35d 100644
--- a/compiler/cmm/CmmContFlowOpt.hs
+++ b/compiler/cmm/CmmContFlowOpt.hs
@@ -56,7 +56,8 @@ optProc _   top                  = top
 branchChainElim :: CmmGraph -> CmmGraph
 branchChainElim g
   | null lone_branch_blocks = g    -- No blocks to remove
-  | otherwise               = pprTrace "branchChainElim" (ppr forest) $ replaceLabels (mapFromList edges) g
+  | otherwise               = {- pprTrace "branchChainElim" (ppr forest) $ -}
+                              replaceLabels (mapFromList edges) g
   where
     blocks = toBlockList g