diff --git a/ghc/compiler/parser/RdrHsSyn.lhs b/ghc/compiler/parser/RdrHsSyn.lhs
index 8d9e17da0187aa432722f8147deb76331a6c6312..caad5ed6c45436bfefba7ef6d636f4d03c2775af 100644
--- a/ghc/compiler/parser/RdrHsSyn.lhs
+++ b/ghc/compiler/parser/RdrHsSyn.lhs
@@ -160,7 +160,7 @@ mkClassDecl (cxt, cname, tyvars) fds sigs mbinds
   = ClassDecl { tcdCtxt = cxt, tcdLName = cname, tcdTyVars = tyvars,
 		tcdFDs = fds,  
 		tcdSigs = sigs,
-		tcdMeths = mbinds,
+		tcdMeths = mbinds
 		}
 
 mkTyData new_or_data (context, tname, tyvars) data_cons maybe