diff --git a/chapter3/calc/Pretty.hs b/chapter3/calc/Pretty.hs
index 9574022..9749387 100644
--- a/chapter3/calc/Pretty.hs
+++ b/chapter3/calc/Pretty.hs
@@ -19,7 +19,7 @@ instance Pretty Expr where
   ppr _ Tr = PP.text "true"
   ppr _ Fl = PP.text "false"
   ppr p (Succ a) = (parensIf (p > 0) $ PP.text "succ" <+> ppr (p+1) a)
-  ppr p (Pred a) = (parensIf (p > 0) $ PP.text "succ" <+> ppr (p+1) a)
+  ppr p (Pred a) = (parensIf (p > 0) $ PP.text "pred" <+> ppr (p+1) a)
   ppr p (IsZero a) = (parensIf (p > 0) $ PP.text "iszero" <+> ppr (p+1) a)
   ppr p (If a b c) =
         PP.text "if"   <+> ppr p a