--- a/tools/pas2c/PascalPreprocessor.hs	Fri Feb 07 14:41:49 2014 +0400
+++ b/tools/pas2c/PascalPreprocessor.hs	Fri Feb 07 15:44:27 2014 +0400
@@ -81,7 +81,9 @@
         char' '}'
         f <- liftIO (readFile (inputPath ++ ifn) 
             `E.catch` (\(_ :: E.IOException) -> readFile (alternateInputPath ++ ifn) 
-            `E.catch` (\(_ :: E.IOException) -> error ("File not found: " ++ fn))))
+                `E.catch` (\(_ :: E.IOException) -> error $ "File not found: " ++ ifn)
+                )
+            )
         c <- getInput
         setInput $ f ++ c
         return ""