diff --git a/ghc/compiler/stgSyn/StgSyn.lhs b/ghc/compiler/stgSyn/StgSyn.lhs
index 704be4b1de1a4118f9f0208983a8b827f6f29a97..5963387370a664e932df9b04bbb9d1654abea42f 100644
--- a/ghc/compiler/stgSyn/StgSyn.lhs
+++ b/ghc/compiler/stgSyn/StgSyn.lhs
@@ -64,7 +64,6 @@ with respect to binder and occurrence information (just as in
 data GenStgBinding bndr occ
   = StgNonRec	bndr (GenStgRhs bndr occ)
   | StgRec	[(bndr, GenStgRhs bndr occ)]
-  | StgCoerceBinding bndr occ			-- UNUSED?
 \end{code}
 
 %************************************************************************
@@ -498,10 +497,6 @@ pprGenStgBinding (StgNonRec bndr rhs)
   = hang (hsep [ppr bndr, equals])
     	 4 ((<>) (ppr rhs) semi)
 
-pprGenStgBinding (StgCoerceBinding bndr occ)
-  = hang (hsep [ppr bndr, equals, ptext SLIT("{-Coerce-}")])
-    	 4 ((<>) (ppr occ) semi)
-
 pprGenStgBinding (StgRec pairs)
   = vcat ((ifPprDebug (ptext SLIT("{- StgRec (begin) -}"))) :
 	      (map (ppr_bind) pairs) ++ [(ifPprDebug (ptext SLIT("{- StgRec (end) -}")))])