--- a/src/compiler.sml	Sun Nov 09 12:41:34 2008 -0500
+++ b/src/compiler.sml	Sun Nov 09 16:54:42 2008 -0500
@@ -439,12 +439,19 @@
 
 val toShake1 = transform shake "shake1" o toCore_untangle
 
+val defunc = {
+    func = Defunc.defunc,
+    print = CorePrint.p_file CoreEnv.empty
+}
+
+val toDefunc = transform defunc "defunc" o toShake1
+
 val tag = {
     func = Tag.tag,
     print = CorePrint.p_file CoreEnv.empty
 }
 
-val toTag = transform tag "tag" o toShake1
+val toTag = transform tag "tag" o toDefunc
 
 val reduce = {
     func = Reduce.reduce,