すごいHaskell本の間違い？

すごいHaskell本のP.101の以下のコードは「Not in scope: `x'」でコンパイルが通らない。

findKey::(Eq k) => k -> [(k,v)] -> Maybe v
findKey key [] = Nothing
findKey key ((k,v):xs)
    | key == x  = Just v
    | otherwise = findKey key xs

以下の様に４行目を「key == k」にすると意味も通るしコンパイルも通る。
実行結果も正しいので本の方が間違っているのであろう。

findKey::(Eq k) => k -> [(k,v)] -> Maybe v
findKey key [] = Nothing
findKey key ((k,v):xs)
    | key == k  = Just v
    | otherwise = findKey key xs

2013/1/8追記
オーム社に問い合わせたらやはり誤植だそうで第4刷は直っているとの事。