--- a/src/compiler.sml	Sun Oct 19 11:11:49 2008 -0400
+++ b/src/compiler.sml	Sun Oct 19 12:12:59 2008 -0400
@@ -463,12 +463,19 @@
 
 val toMono_opt2 = transform mono_opt "mono_opt2" o toMono_shake
 
+val pathcheck = {
+    func = (fn file => (PathCheck.check file; file)),
+    print = MonoPrint.p_file MonoEnv.empty
+}
+
+val toPathcheck = transform pathcheck "pathcheck" o toMono_opt2
+
 val cjrize = {
     func = Cjrize.cjrize,
     print = CjrPrint.p_file CjrEnv.empty
 }
 
-val toCjrize = transform cjrize "cjrize" o toMono_opt2
+val toCjrize = transform cjrize "cjrize" o toPathcheck
 
 val prepare = {
     func = Prepare.prepare,