diff --git a/ghc/compiler/parser/Parser.y b/ghc/compiler/parser/Parser.y
index 51bd67a90188b3c1662b104977e44b8f11ce7257..9279e44f97aa80e0f0c5c011e1e967d1adcefa55 100644
--- a/ghc/compiler/parser/Parser.y
+++ b/ghc/compiler/parser/Parser.y
@@ -1,6 +1,6 @@
 {-
 -----------------------------------------------------------------------------
-$Id: Parser.y,v 1.31 2000/05/25 12:41:17 simonpj Exp $
+$Id: Parser.y,v 1.32 2000/06/01 08:51:46 simonmar Exp $
 
 Haskell grammar.
 
@@ -607,6 +607,7 @@ scontype :: { (RdrName, [RdrNameBangType]) }
 scontype1 :: { (RdrName, [RdrNameBangType]) }
 	: btype '!' atype		{% splitForConApp $1 [Banged $3] }
 	| scontype1 satype		{ (fst $1, snd $1 ++ [$2] ) }
+        | '(' consym ')' 		{ ($2,[]) }
 
 satype :: { RdrNameBangType }
 	: atype				{ Unbanged $1 }