diff --git a/backends/GenerateC.hs b/backends/GenerateC.hs
index 41d69a3..b4fc8c3 100644
--- a/backends/GenerateC.hs
+++ b/backends/GenerateC.hs
@@ -155,7 +155,6 @@ cgenTopLevel s
           sequence_ $ map (call genForwardDeclaration)
                           (listify (const True :: A.Specification -> Bool) s)
 
-          tell ["/* ", show $ csParProcs cs, " */\n"]
           sequence_ [do tell ["extern int " ++ nameString n ++ "_wrapper_stack_size;\n"]
                         cgenProcWrapper n
                      | n <- tlpName : (Set.toList $ csParProcs cs)]