--- a/tools/pas2c.hs	Fri Jan 06 01:51:04 2012 +0100
+++ b/tools/pas2c.hs	Sat Jan 07 00:10:47 2012 +0400
@@ -126,6 +126,7 @@
 uses2C :: Uses -> State RenderState Doc
 uses2C uses@(Uses unitIds) = do
     mapM_ injectNamespace (Identifier "pas2cSystem" undefined : unitIds)
+    mapM_ (id2C True) unitIds
     return $ vcat . map (\i -> text $ "#include \"" ++ i ++ ".h\"") $ uses2List uses
     where
     injectNamespace (Identifier i _) = do