diff --git a/ghc/compiler/stgSyn/StgSyn.lhs b/ghc/compiler/stgSyn/StgSyn.lhs
index 2f0fc0b507d9476c85ea6f21d864ea832d77b444..5a40c9d2907e8036438af74c3416e1c4d20b6ca1 100644
--- a/ghc/compiler/stgSyn/StgSyn.lhs
+++ b/ghc/compiler/stgSyn/StgSyn.lhs
@@ -175,7 +175,7 @@ it encodes (\x -> e) as (let f = \x -> e in f)
 \begin{code}
   | StgLam
 	Type		-- Type of whole lambda (useful when making a binder for it)
-	[Id]
+	[bndr]
 	StgExpr		-- Body of lambda
 \end{code}