diff -r ed8bab6e92ba -r bfae7354d42f tools/pas2c/Pas2C.hs
--- a/tools/pas2c/Pas2C.hs	Wed May 07 22:47:54 2014 +0200
+++ b/tools/pas2c/Pas2C.hs	Fri May 09 22:36:15 2014 +0400
@@ -121,7 +121,7 @@
                     let ptree = parse pascalUnit fileName fc
                     case ptree of
                          (Left a) -> do
-                            liftIO $ writeFile (outputPath ++ "preprocess.out") fc
+                            liftIO $ writeFile (outputPath ++ fileName ++ "preprocess.out") fc
                             printLn $ show a ++ "\nsee preprocess.out for preprocessed source"
                             fail "stop"
                          (Right a) -> do