diff --git a/Main.hs b/Main.hs
index bfe39d249b98a69bd2278133c1dc0d150d1a7b69..d4b969fd4f9a83ec3cd0b9157e4fc8e45ec834ff 100644
--- a/Main.hs
+++ b/Main.hs
@@ -65,8 +65,8 @@ collectArgsTicks_OnStack = go mempty
     go :: [Expr] -> Expr -> (Expr, [Expr], [Tickish])
     go as (App f a) = go (a:as) f
     go as (Tick t a) =
-      let !(e', as, ts) = go as a
-      in (e', as, t:ts)
+      let !(e', as', ts) = go as a
+      in (e', as', t:ts)
     go as a = (a, as, [])
 
 collectArgsTicksBenchmarks :: Expr -> [Benchmark]