diff --git a/compiler/coreSyn/CoreArity.hs b/compiler/coreSyn/CoreArity.hs
index bb4577378547f568294d3e16c45adc17b20fa837..b020f788e0cfca324c294e9e1ea672975b75d5f7 100644
--- a/compiler/coreSyn/CoreArity.hs
+++ b/compiler/coreSyn/CoreArity.hs
@@ -694,7 +694,7 @@ Consider
                            False -> \s(one-shot). e1
            in go2 x
 We *really* want to eta-expand go and go2.
-When combining the barnches of the case we have
+When combining the branches of the case we have
      ATop [] `andAT` ATop [OneShotLam]
 and we want to get ATop [OneShotLam].  But if the inner
 lambda wasn't one-shot we don't want to do this.