diff --git a/ghc/compiler/specialise/SpecConstr.lhs b/ghc/compiler/specialise/SpecConstr.lhs
index 528140cd4daa75d46de5aa088e3a37fb12bcc061..dfea0cb1a56175bde1dbd9602439ee71b3bb6011 100644
--- a/ghc/compiler/specialise/SpecConstr.lhs
+++ b/ghc/compiler/specialise/SpecConstr.lhs
@@ -500,7 +500,6 @@ spec_one env fn rhs (pats, n)
 	spec_id   = mkUserLocal spec_occ spec_uniq (exprType spec_rhs) fn_loc
 	rule      = Rule rule_name pat_fvs pats (mkVarApps (Var spec_id) bndrs)
     in
-    pprTrace "SpecConstr" (pprCoreRule (ppr fn) rule)	$
     returnUs (rule, (spec_id, spec_rhs))
 \end{code}