--- a/src/compiler.sml	Tue Sep 09 09:15:00 2008 -0400
+++ b/src/compiler.sml	Tue Sep 09 11:46:33 2008 -0400
@@ -363,12 +363,19 @@
 
 val toElaborate = transform elaborate "elaborate" o toParse
 
+val termination = {
+    func = (fn file => (Termination.check file; file)),
+    print = ElabPrint.p_file ElabEnv.empty
+}
+
+val toTermination = transform termination "termination" o toElaborate
+
 val explify = {
     func = Explify.explify,
     print = ExplPrint.p_file ExplEnv.empty
 }
 
-val toExplify = transform explify "explify" o toElaborate
+val toExplify = transform explify "explify" o toTermination
 
 val corify = {
     func = Corify.corify,