--- a/tools/pas2c.hs	Sun Nov 27 19:34:08 2011 +0300
+++ b/tools/pas2c.hs	Sun Nov 27 23:13:22 2011 +0300
@@ -30,7 +30,9 @@
                 $ tryJust (guard . isDoesNotExistError) 
                 $ hPutStr stderr ("Preprocessing '" ++ fileName ++ ".pas'... ") >> preprocess (fileName ++ ".pas")
             case fc' of
-                (Left a) -> printLn "doesn't exist"
+                (Left a) -> do
+                    modify (Map.insert fileName System)
+                    printLn "doesn't exist"
                 (Right fc) -> do
                     printLn "ok"
                     let ptree = parse pascalUnit fileName fc