diff --git a/src/LambdaLifter.hs b/src/LambdaLifter.hs
index e8862a2..79f8230 100644
--- a/src/LambdaLifter.hs
+++ b/src/LambdaLifter.hs
@@ -199,8 +199,7 @@ collectScsExp = \case
     where
       (scs, e') = collectScsExp e
 
-  -- Collect supercombinators from binds, the rhss, and the expression,
-  -- and the rhss.
+  -- Collect supercombinators from binds, the rhss, and the expression.
   --
   -- > f = let
   -- >       sc  = rhs