diff --git a/fco/Parse.hs b/fco/Parse.hs
index 2239648..de8c56e 100644
--- a/fco/Parse.hs
+++ b/fco/Parse.hs
@@ -755,8 +755,8 @@ flatten ls = concat $ intersperse "\n" $ flatten' ls 0
       | newLevel < level = (rep (level - newLevel) '}' ++ stripped) : rest
       | otherwise        = stripped : rest
       where newLevel = countIndent s
-            stripped' = stripIndent $ stripComment s
-            stripped = if stripped' == "" then "" else (stripped' ++ "@")
+            stripped' = stripComment s
+            stripped = if stripIndent stripped' == "" then "" else (stripped' ++ "@")
             rest = flatten' ss newLevel
 
 -- -------------------------------------------------------------